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FACILITY: 
VAX/VMS TERMINAL DRIVER 


ABSTRACT: THIS MODULE CONTAINS THE FUNCTION DECISION ROUTINES FOR TERMINAL 
RELATED 1/0 FUNCTIONS. 


NOTE: THIS MODULE RUNS IN THE CONTEXT OF THE LOGICAL TERMINAL 
UCB. IT MUST NOT pPEEERENCE ANY PHYSICAL FIELDS WITH OUT 
USING AN INDIRECT REFERENCE THROUGH UCBSL_TL_PHYUCB. 
SEE THE GUIDELINES OUTLINED IN THIS MODULE. = 


AUTHOR: R.HEINEN 23-SEPT-76 VERSION V06 
Revision history: 


V04-001 M1R1100 Michael I. Rosenblum 06-Sep-1984 
If read verify is saecified and zero tongeh picture string 
was specified then the system would cras 


v03-029 pin se chael + Rosenblum 05-Jun-1984 
prensee with "yeites with lower clear and fallback set 
a oundery problem w th Readverify. 
ix bug in uppercase logic. 


v03-028 n0700 Michael I. Rosenblum $5-Rey-1906 
bug where things would be verry screwed up if t 
buttoned i/o quota was exceded on a read. 


1 
(1) 


eee 
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28 3 v03-027 MIRO370 Michael I. Rosenblum 20-Mar-1984 
; Fix bug thas caused pool to be corrupted if a read with 
60 ; user specified terminator mask was issued when fallback 
1 ; was set. Clear out new read fields. 
ra ; v03=-026 MIRQ310 Michael I. Rosenblum 09-Feb-1984 
rf : Don't give priority boosts to programs who do short I/0's 
66 : v03-025 M1RO300 Michael I. Rosenblum 30-j an-1984 
67 ; Made the fallback characteristic overide writeall, pasall, 
rt: ; and pasthru. 
6 5 : VO3-024 MIROO82 Michael I. Rosenblum 19-Aug-1983 
3 4 3 Remove CMKRNL priv check in connect. 
4 rg : v03-023 MIROO80 Michael I. Rosenblum 28-Jul-1983 
} 0 8 74; Move newline code to TTYSTRSTP 
38 g? 3 Reposition routines in this module 
$09 8 : V03-022 MIROOS3 Michael I. Rosenblum 27-Jun-1983 
0000 78 ; Fix bug in code that processed zero length initial strings 
44 4 3 When uppercaseing. 
9000 81: v03-021 MIROOS1 Michael I. Rosenblum 23-Jun-1983 
000 ¢ : Restructure MOVE_TRANSLATE to clean and pptentas. 
000 § fix bug in prompt and initial string fallback presentation 
4 : 3 dd code to use the class relocation table for fallback 
0000 «86: v03-020 RKS0020 RICK SPITZ 7=JUN-1983 
0000 87 ; ADD CONNECT/DISCONNECT FDOT ACTION ROUTINES 
8008 3 ; MOVE UCBSV_TT_HANGUP INTO LUCB. 
0000 «(90 v03-019 RKS0019 RICK SPITZ 27-MAY-1983 
000 91 ; INTERLOCK FDOT FUNCTIONS THAT REFER TO PUCB FIELDS. 
94 8 ; THIS IS NEEDED FOR CONNECT/DISCONNECT FUNCTIONALITY. 
0900 34 : INIT LINREST FIELD IN READ BUFFER 
$000 96 ;: v03-018 MIROO49 Michael I. Rosenblum 06-May-1983 
4 97 ; Add code to handle fallback presentation of eight bit 
444 3 characters. 
$008 100 : V03-017 MIRO045 Michael I. Rosenblum 05-May-1983 
4 13) 3 ix change in definition of TTYSC_FC_N_SET to 
BS ! ; : TTYSC_FC_HANGUP. 
104 : V03-016 MIRO030 Michael I. Rosenblum 30-Mar-1983 
105 ; Integreate Read verify functionality with the normal 
: $ : Terminal driver as an item list read function. 
1 8 : v03-015 mMIROO2Y Michael I. Rosenblum 22-Mar-1983 
0 1 : Add code to handle overstrike and insert modes. 
19 : Fix bug in initial offset code. 
118 : v03-014 RKS0014 RICK SPITZ 14-MAR-1983 
3 113 ; ADD SUPPORT FOR LOGICAL UCB. NOTE THAT THIS A FUNDEMENTAL 
114 ; CHANGE TO THE OPERATION OF THIS MODULE. WHEN RUNNING IN 
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FOT CONTEXT, IT IS VERY IMPORTANT TO ONLY REFERENCE FIELDS 
IN THE LOGICAL UCB REGION, ALL REFERENCES TO PHYSICAL UCB 
EXTENSIONS MUST BE DONE VIA THE PHYSICAL UCB POINTER. 
v03-013 mjR6026 Michee| Se Rosenblus 14-Mar-1983 
Fix bug in initial string loading code. 
V03-012 MIR7026 Michael I. Rosenblum 11-Mar-1983 
fopy modifier bits into read buffer modify field. 


x off by 1 error in initial offset code. 


V03-011 MIR2026 Michael I. Rosenblum 07-Mar-1983 
Set up modifier bits in the read buffer for normal 


reads. 
V03-010 MI1RO026 Michael I. Rosenblum 01-Mar-1983 
Add modifier bits to turn off recall and editing 


v03-009 MIROO025 Michael I. Rosenblum 01-Feb-1983 
Impliment alternate item List fdt routine to handle 
the current functionality in the itemlist Q10 form. 


V03-008 MIRO024 Michael I. Rosenblum 28-Jan-1983 
Impliment new terminal read buffer structure. 

v03-007 MIROO13 Michael I. Rosenblum 16-Dec-1982 
Fix up refferences to new ucb structure 

V03-006 M1RO011 Michael I. Rosenblum 18-Nov-1982 
Change CTRLR state to be EDITREAD state. 


v03-005 M1RO010 Michael I. Rosenblum 09-Nov-1982 
Move the address of the terminator mask, and the Length 
of the prompt hig from the IRP into the terminal read 
acket. Also move the count of the characters in the 
uffer from the UCB into the terminal typeahead buffer packet. 


v03-004 RKS0004 RICK SPITZ 23-SEP-1982 
INSURE CONTROL Y AS IS POSTED PRIOR ATTEMPTING TO DELIVER 
DEFERRED HANGUP AST. THIS CONDITION MAY OCCUR ON SLAVE 
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TERMINALS. 

v03-003 RKS0003 RICK SPITZ 05-APR-1982 
ALLOW PASSALL DATA DURING UPCASE CONVERSION 

v03-002 RKS0002 RICK SPITZ 31-MAR-1982 
ADD SPECIAL CHARACTERISTIC BITS FOR DCL SPAWN 
TRANSLATE LOWER CASE OUTPUT ON UPPERCASE DEVICES. 
FIX SECURITY PROBLEM WITH AP AND TERMINATOR BITMAPS 


SOOO SCOSCSOOCOSCSOOSOOOSOOOSOOSOSOSCOOCOOCSOOSOOSOOOSOSOOSOOOOOOOOOOOOOOoOO 
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v03-001 xKS0001 RICK SPITZ 23-MAR-1982 
CORRECT ALTERNATE CLASS DRIVER DISPATCHING. 
REPAIR SECURITY PROBLEM WITH USE OF AP. 


v02-035 ROW0065 31-JAN-1982 


COSCO COCOOOCSOOOCOSCOCOCOSOSOOSOOOSOOOOOOOOOO COSCO O OOOO OOOOOOOOOOOOOOOo 
SSDP DP DPD DED PAPA. De TB BB AAI WII WII II Onnononononon 
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oooooo 


oy 0. Weber . 
Move test for josv. XTEND in TTYSFDTREAD so as to eliminate 
executing dupl 


cate code in both the regular class driver FDT 
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the alternate class driver FDT. Add alternate class 
dr ver legal function test before dispatching to alternate 
class driver FDT. 


V02-034 RKS034 K SPITZ 24- 1982 
IRP$W_TT _PRMPT#2" ENHANCED TO SPECIFY INITIAL READ FIELD OFFSET 


v02-033 RKS033 RICK 4 VE 15=DEC-1981 


Add RTE prompt support. 


172 ; 
158 : 
174; 
1 
179 ; 
138 : 
0 180 ; ADD SUPPORT FOR ALTERNATE CLASS DRIVER. 
181: REMOVE LOGIO REQUIREMENT FOR CONTROL Y ASTS. 
; ; REPAIR SET_MODEM MAINTENANCE FUN NCTION. 
184 : y02-032 RKS032 RICK SPITZ 8-NOV-1981 
5: ADD OUT OF BAND SUPPORT 
0 1 5 : v02=031 JLV0101 ¢,VanNoy 27-0 t-1981 
99 8 Changed TTYDEFS = NS ryyper 
900 190 ; v02=030 RKS030 RICK SPITZ 15-SEP-1981 
900 191 : REDEFINE DIAGNOSTIC MODEM BIT 
000 13 : v02-029 RKS029 RICK SPITZ 26-AUG-1981 
090 133 3 ADD MAINT ENABLE BIT 
0000 196: v02=028 RKSO28 RICK SPITZ 20-AUG-1981 
2099 197 ; ADD SUPPORT FOR ESCAPE MODIFIER ON READ 
00 199 : V02-027 RKS027 RICK SPITZ 30-APR-1981 
0 00 ; THIS MODULE HAS BEEN ENHANCED TO SUPPORT QUADWORD STATE 
000 01 ; AND DEVDEPEND STRUCTURES. ALSO ENHANCEMENTS WERE ADDED 
909 0¢ ; 10 su PORT ¢ HANGES TO THE STRUCTURE OF THE UCB INCLUDING 
000 04 : SUPPORT FOR DIAGNOSTIC MAINTENANCE FUNCTIONS HAS BEEN ADDED 
900 05 : AS WELL AS NEW FIELDS IN THE TWP. THIS ALLOWS FORKING 
000 06 ; ON THE TWP TO ALLOW ALLOCATION/DEALLOCATION OF MAP REGISTERS. 
8090 08 : V02=026 RKS026 RICK SPITZ 26-F EB-1981 
8 ; 3 3 DELETE v2.0 AUDIT TRAIL 
9 1 ; V02-025 SPF0001 Steve forgey 19-Dec-1980 
0099 3i8 
0 § 15 : 


Sooooooo 
ooooooo 


: LOCAL DEFINITIONS 
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-SBTTL Declarations 
3; EXTERNAL SYMBOLS: 
SACBDEF ; DEFINE AST CONTROL B 
SARBOEF 3; DEFINE ACCESS RIGHTS BLOCK 
3 SCADEF 3; DEFINE CONDITIONAL ASSEMBLY PARAMETERS 
SDDTDEF ; DEFINE DDT OFFSETS 
SDYNDEF ; DEFINE DYNAMIC MEMORY BLOCK TYPES 
SIODEF : DEFINE 1/0 FUNCTION CODES 
SIPLDEF 3; DEFINE IPL CONSTANTS 
SIRPDEF ; DEFINE 1/0 PACKET OFFSETS 
SJIBDEF ; DEFINE JIB OFFSETS 
SPCBDEF ; DEFINE PCB OFFSETS 
SPRVDEF ; DEFINE PRIVILEGES 
SPSLDEF ; DEFINE PSL OFFSETS 
SSSDEF ; Define system status codes 
SUCBDEF 3; DEFINE ute 
STRMDEF 3; define bits for itemlist 
STTYDEF ; DEFINE TERMINAL DRIVER SYMBOLS 
STTDEF ; DEFINE TERMINAL CHARACTERISTICS 
STT2DEF ; EXTENDED TERMINAL CHARACTERISTICS | 
STTYMACS ; TERMINAL MACROS | 
STTYDEFS 3; DEFINE TERMINAL DEFINITIONS 
} 
} 
| 
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0 
0 
0 
0 
0 
0 
0 
8 3 Q10 ARGUMENT LIST OFFSETS 
00000000 9 P1 = 0 
00000004 Pe = 4 | 
990000 8 P3 = 8 
00000 ¢ P4 = 12 
0000001 P5 = 16 
00000014 9 P6 = 20 
; make sure that definitions of the terminal item List modifiers match 
3 system 10 modifer definitions | 
0 ASSUME TRMSV_TM_NOECHO EQ I0S$V_NOECHO NOE CHO 
0 ASSUME TRMSV-TM-TIMED EQ 10$V_TIMED S TIMED 
ASSUME TRMSV-TM-CVTLOW EQ 10$9_CVTLOW ;CONVERT LOWER CASE 
90 ASSUME TRMSV-TM“NOFILTR EQ 10$9_NOFILTR NO FILTER | 
ASSUME TRMSV-TM_DSABLMBX EQ 10$7_DSABL DISABLE MAI | 
0 ASSUME TRMSV“TM"PURGE EQ IOSV_PURGE ;PURGE TYPEAHEAD 
0 ASSUME TRMSV-TM-TRMNOECHO EQ TOSV_TRMNOECHO [TERMINATORS ARE NOT | 
0 ASSUME TRMSV-TM-REFRESH EQ IO$V_REFRESH :Control-R i 
20 ASSUME TRMSV_TM_ESCAPE EQ 10$V_ESCAPE ; TERMINATE READ ON | 
| 
000 
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0000 -PSECT $$$115_ DRIVER, LONG 


: -SBTTL TTYSFOTREAD = FUNCTION DECISION ROUTINE FOR TERMINAL READ FUNCTIONS | 
TTYSFDTREAD = FUNCTION DECISION ROUTINE FOR TERMINAL READ 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS THE FUNCTION DECISION ACTION ROUTINE FOR TERMINAL READS. 

THE TERMINAL READ Q10 PARAMETERS ARE: 


Pe 2 ApoRess OF THE BU BUFFER TO RECEIVE THE DATA RECORD | 
= | 
P53 = NUMBER OF SECON ONS TO. WAIT FOR Seanac Tene (108A TIRED ONLY) | 
P4 = ADDRESS OF TERMINATOR CLASS BITMASK OR O IF STANDAR 

P5 = ADDRESS OF PROMPT STRING FOR I0$ READPROM MPT 
P6 = SIZE OF PROMPT STRINT FOR I10$_READPROMPT | 


THE FUNCTION PARAMETERS ARE VALIDATED AND IF CORRECT, THE PACKET IS 
QUEVED ON THE UNIT 1/0 QU 
THE PACKET CONTAINS THE FOLLOWING: 


1. jerse TT_STATE IS SET UP TO ares. NEW TERMINAL STATES AT THE 


OODDWOWDODOOOO YY SO 
SO OD NAN EW CO ODNOUNE WT "OO 


Ooooooooco 
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3+ 
: 
92 : THE-READ OPERATION IS STA | 
0 93 : 2. Ike L_SVAPTE CONTAINS THE ADDRESS OF THE READ BUFFER 
9 34 : FORMATTED AS FOLLOWS. | 
0 96 : .LONG ADDRESS TO STORE DATA | 
0 97 : [LONG USER BUFFER VIRTUAL ADDRESS 
0 98 : “WORD SIZE 
0 99 : “WORD TYPE 
0 00 ; “WORD STORAGE FOR STARTING CURSOR POSITION 
00 1: “WORD TIMEOUT COUN 
99 ; ; PROM MPT STRING 
0 ; READ BUFFER 
99 4 ; TERMINATOR MASK FOR NONSTANDARD CLASSES | 
00 06 ; 3. IRPSL_TT TERM ADDRESSES THE TERMINATOR BITMASK | 
00 ; 4. IRPSW~ Pune < ARE SET FOR A FAST gcse ON FUNCTION TYPE 
0 3 3 5. IRPSW_BOFF 0:63 HE QUOTA FOR THE 1/0 
0 09 6. IRPSWIBCNT IS THE READ REQUEST SIZE 
1 > STATE BIT USAGE. | 
G i : FOR 10$_READPBLK TTySv 33" PASSALL IS SET. 
14: FOR IO$-READPROMPT V_ST_PROMPT AND TTYSV_ST_EDITREAD ARE SET. 
15 ; “EDITREAD vf. Nee THE PROMPT AND INITIAL STRING OUT. | 
i$ : FOR IOSM_NOECHO, TTYSV_ST_NOECHO IS SET. 
18 : FOR IOSMINOFILTR, TTYSV_ST_NOFILTR IS SET. 
19 ; For IOSM~REF RESH. tysv" “ST“REFRSH is set. | 
1 ; INPUTS: | 
Ps | 
: ; R3 = ADDRESS OF THE PACKET FOR THIS REQUEST 
4: R4 = CURRENT PCB | 
5; RS = UCB ADDRESS 
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; Rg = ASSIGNED CCB 

: R? = FUNCTION CODE 

: AP = ADDRESS OF FIRST FUNCTION DEPENDENT Q10 PARAMETER 

: OUTPUTS 

: THE I/O IF IN ERROR IS COMPLETED VIA “EXESABORTIO". 

THE 1/0 IF VALID IS QUEVED TO THE DRIVER BY "'EXESQIODRVPKT"’. 

; COMPLETION CODES: 

: $$$ -ACCVIO = ACCESS VIOLATION ON BUFFER. 

; SS"EXQUOTA = OVER QUOTA FOR BUFFERED 1/0 

; SS$"INSFMEM = INSUFFICIENT MEMORY 

, -ENABLE LSB 

TTYSFDTREAD: : : 

BBC #10$V_EXTEND,- 

IRP$W~ FUNC (RS) ,2$ 

- BRW TTYSFOTITEMREAD 

b BBS #TTSV_LOWER,- : IS THIS LOWER CASE 
UCBSL“DEVDEPEND(RS),1$ : NO THEN CONTINUE ON 
BBSS  #l0$V~CVTLOW,- 

IRP$W~FUNC (RS) ,1$ ; YES THEN SET LOWER IN FUNCTION 

1$: PUSHL R3 : SAVE PACKET ADDRESS 


; SET PROPER STATE BITS FOR READ FUNCTIONS FROM FUNCTION MODIFIERS 
NOTE THE CORRESPONDENCE OF THE VALUES 


ASHL #TTY$V_ST_NOECHO- ; Move function code and its 
-10$V_ROETHO ; modifiers into bits 9-25 of 
IRPSW FUNC (RS) R8 : a register. 
BICL C<TTYSM ST_NOECHO!= : Clear all bits except NOECHO 
TTYSM_ST_ROFCTR!- : NOFLTR, and 
TIVSRSTIESCAPE!~ ; 
TTYS$M~ ST REFRSH REFRESH if specified. 
BBC #1T2$0_EBI TING utes DEvDEPNDELRS) 3$: 18 THIS AN EDITING READ 
BISL #TTYSM7ST_EDITIN THEN set EDITING 
BISL  #TTYSM™ST ~5VERSTRIKE HEN RAKE OV ERSTRIKE THE DEFAULT 
BBC #TT2$V~ INSERT ,UCBSL st okens (R5),3$; IF HE WANTS INSERT THEN 
BICL aTTYSR- ST -OVERST RIKE,R8 ; CLEAR INSERT 
3$ MOVZWL YSM~ST "READ 
TRPSO" TT “STATE (R3) : INIT AND ADD READ 
CHECK ACCESS TO READ BUFFER 
MOVL PICARD, RO : GET BUFFER ADDRESS AND SIZE 
75 MOVZWL peta AP) -R1 ; 
7 BNEQ + IF NEQ THEN ACTUAL READ 
7 BBCS #TTY$V_S 
7 IRP$Q tt ite 10$ ; SET EOL AND BRANCH 
79 5$ JSB CoE XESRERDCH HK : CHECK READ ACCESS FOR BUFFER 
0 + NO RETURN N MEANS NO ACCESS 
1 10$: mova RO.R9 : COPY INPUT BUFFER PARAMS 
2 CLRL ORR : ASSUME 0 BUFFER SIZE 


BEQL BRANCH 
CMPZV) = #MIRPSV_FCODE ,#IRPSS READ PASSALL W/PROMPT? 


_FCODE,- 
RPSW_FUNC(RS) ,#10$~TTYREADPALL 
BNEQ 0 ; BRANCH IF NO 
BBCS § #TTYSV_ST_PASALL,R8,22$ ; SET PASSALL BIT IN VECTOR 


06 0° ED 3 
38 20 a3 
0058 02 € 
22s: 
; SEE IF NO PROMPT IS SPECIFIED 


MOVZWL PO6CAP) ,R7 GET SIZE OF PROMP 
BEQL 50$ 
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0C 20A3 06 Fp SF cHPzv #1RPSV_FCODE ,MIRPSS_FCODE, 1RPSW FUNC(R3) ,#10S_READPBLK; PASSALL? 

06 ED 008? CMPZV #IRPSV_FCODE,#IRPSS_FCODE,-  ; TEMP READ PASSALL | 

3A O20 A A JRPSW_FUNC(RS) ,#108_TTYREADALL | 

04 12 D BNEQ 0$ ; NO, BRANCH | 

128: 

.IF DF CAS_MEASURE_1OT | 
6F BLBC  G*PMSS$GL_DOSTATS,15$ |; IF FLAG OFF BYPASS NEXT INST. | 
oF INCL  G*PMSSGL~PASSALL : ELSE INCR PASSALL COUNTER | 
rf . ENDC | 

65 58 02 €3 ¢F 15$:  BBCS  #TTYSV_ST_PASALL,R8,50$ ; SET PASSALL MODE AND BR 
5 ; DO SPECIAL FUNCTION LOGIC FOR READ WITH PROMPT | 

06, 99 ED 007 20$:  CMPZV #IRPSV_FCODE ,#IRPSS_FCODE,- ; READPROMPT? | 
37.20 A r% RPSW_FUNC (RS) ,#10$-READPROMPT | 
OC 13 007 s | 

78 | 

7E | 

81 | 

83 | 

87 | 

87 | 

87 

? 
3 


57 14 AC 7 T 
IF EQL THEN MAKE THIS NORMAL READ 


ODOoOOOOOCOOOOSOOSO SOOO OOSOSOOSOOOOOOCOOOSOOOSOOSOOO Vz 
OOOCSOCOSCOGOCSOOSOOSCOOSOSOSOSOOOOOOSOOOOSOOOOCOOOOOOOOOOOSOOoOO --- 


Pee ee ee oe et Tt Nee ee ee ee ee ee 
AAA AA AAA AAR POPOPPOPOPUPIIIID 4 BQO OOO OOO 00000000000.000000000000000 


DOONAN ANS OD NAN EWIDO OD NAME WIN OOD NA NEW 9 OD NAME WN OOONAOUSA Nec 
. 


4B 1 38 : 

8p t READ WITH PROMPT | 

8D : 
8p IF DF CAS_MEASURE_IOT | 
8D BLBC G*PMSS$GL_DOSTATS,30$ =; IF FLAG OFF, BYPASS NEXT INST | 
8D INCL  G*PMSSGL-RWP + INCR READ WITH PROMPT COUNTER 
8D CMPL #12,R7 : \ISOLATE READ WITH PROMPTS 
8p BGTR 25$ : /GREATER THAN 12 CHARS | 
D INCL  G*PMSS$GL_LRGRWP : INCR CTR FOR PROMPTS > 12 CHARS | 
p 25$: ADDL2 R7,G*PMSSGL_RWPSUM : KEEP RUNNING SUM OF RWP SIZES 
. ~ENDC | 

58 20 C D 30$:  BISL  #TTYSM_ST_PROMPT,RS : INSERT BITS FOR PROMPT 
40 a3 09900209 ea. 0 BISL  #TTYSMTST“EDITREAD, IRP$Q_TT STATE(R3); INSERT BITS FOR PROMPT 

50 10AacC OD 98 MOVL P5(AP)7RO 7 GET PROMPT BUFFER ADDRESS | 
3¢ : CHECK ACCESS TO PROMPT STRING | 
51 57 3¢ 9¢ . MOVZWL R7,R1 : GET SIZE PROMPT 
00000000'GF 16 009F JSB G*EXESWRITECHK : CHECK PROMPT BUFFER ACCESS | 
A + NO RETURN MEANS NO ACCESS 
4E AS BS SCOOOA CLRW IRPSW_TT_PRMPT+2(R3) : ZERO INITIAL READ OFFSET | 
OE €1 O0AB BBC #TT2$0_FALLBACK,- | 


TTYFDT - Terminal driver function etetten. o. t 16-SEP-1984 :3 X/VMS Macro V04-00 Page 9 
v04-001 TTYSFDTREAD = FUNCTION DEC Sf ON ROUTINE : -SEP=1984 96: i ‘i ft TTDRVR.SRCITTYFDT.MAR; 2 . (2) | 
1C 48 AS AA 440 UCBSL_DEVDEPND2(R5) ,35$ : ARE We DOING FALLBACK? | 
DD OOAD 44 PUSHL R : SAVE THIS SPECAIL 
F AF Ade PUSHR #°M<RO,R1,R2,R3> : SAVE A REGISTER 
: 0 »D Bl 44 MOVL  RO,R : REGISTERS NEED TO BE SWAPPED | 
a 8 B4 444 MOVL RI}. ie | 
1 é p 7 645 MOVL ; | 
OCA BA 446 BSBW FALL : GET THE NUMBER OF CHARACTERS | 
F BA O00BD 44 POPR ‘ arch RI | 
4E Ad. 559 80 BF 448 MOVW IRPSW_ tt 2 BRRPT#2(R3) : SAVE THE yAPOI TIONAL NUMBER OF CHARCTERS 
51 59 «CC C34 ADDL ROcAt : AND FIX UP R1 
9 BED C6 450 POPL : RESTORE MS | 
56 0 »D ¢ 43 35$:  MOVL  RO,R6 ; COPY PROMPT STRING ADDRESS 
1 a:t mi’ ADDL Rig, R1 JUST PROMPT SIZE TO OVERALLOCATE 
3203 5A OB OCF 45 MOVW R10. IRPS$W_BCNT(R3) i VE ACTUAL READ SIZE | 
00 2A A o1 E D3 454 BBSS #IRP$V_FUNC, IRPSW pam f 0$; RESET TRANSFER DIRECTION 
4C A 7 8B 0D 455 50S: MOVW R IRP WATT PRMPTTRS) =; keep the et t size 
51 | .0000004a BF CO one 436 ADDL -#TTYSL_RB_DATA.RI is 8 ta FOR BLOCK HEADER | 
5 44 AS 06 E1 OOE3 45 BBC #TT$V  SERIPT Utes _DEVDEPENDIR de — TERMINAL LINE ? | 
4C AS) B6 O0EB 458 INCW —- IRPS$W~TT_PRMPT( ADD R T SIZE 
51 D6 OOEB 459 INCL RY Ree T SIZE 
5 20 C8 QOED 460 BISL2 #TTYSM_ST_PROMPT,RB ENSURE FUNCTION 1S A RWP | 
00000200 8F ¢8 OOFO 461 BISLO #TTYSM~ST~EDITREAD,- 
40 A3 OOF6 46¢ IRP$Q_TT STATE(R3) NSURE FUNCTION IS A RWP | 
2a a3. 01_—=sé€E2 OOF 46 BBSS #IRP$0_FONC, IRPSW  sTs¢R35 5$; ENSURE TRANFER DIRECTION RESET 
3C AZ. 00000000'EF 9 FD 464 55$:  MOVAB. TTYSA STAND ARD RPSL TTERM( R3); E STANDARD TERMINATORS 
38 AS) «(OC ACO 010 465 MOVL P4(APY,IRPSL RMEDIAC ; GET ADbRESS OF TERMINATOR BITMASK 
28 1 10A 466 BEQL 65$ 3: IF Ear THEN STANDARD 
52 38A 0 010C 467 MOVL  IRPSL_MEDIA(R3),R2 : RETRIEVE ADDRESS 
3c ad S51 C 0110 468 MOVZWL 1 TRPSL TT TTERACRS) : SAVE OFFSET IN BUFFER BLOCK | 
50 0c 3C 0114 469 MOVZWL #SS$ ACCULOTR : ASSUME ACCESS VIOLATIO 
117 470 IFNORD #8, (R2),70$ 3 DESC. ACCESSIBLE? 
5B OOK A p0 11D 0471 OVL  4(R2),R11 : GET BITMAP ADDRESS | 
5A 62 3 OIg1 bre MOVZWL (R2),R10 ; GET BITMAP SIZE | 
06 7 124 47 EQL = 60S : IF EQL THEN SHORT FOR 
20 SA Bl 0126 47% CMPW 3s R10, #32 + CHECK FOR VALID LENGTH 
03 18 0129 47s BLEQU 57$ ; RANGE OK | 
SA 20) «3C-:«(012BSCs«4 76 MOVZWL #32,R10 + USE MAXIMUM 
O12— 477 57$: IFNORD R10,(R11),70$ : BITMAP ACCESSIBLE? 
51 20 CO 0134 478 60$: ADDL #32.R1 t ASSUME EIGHTBIT CHARACTERS AND EXTEND 
01 , 479 : TERMINATOR MASK | 
4 g 481 : ALLOCATE HEADER + PROMPT + DATA + BITMASK | 
Ps 
137 4 “ + CHECK FOR BUFFERED 1/0 QUOTA 
137 484 : 
137 485 658: 
00000000" GF 16 0137 486 JSB GE XE SBUFFRQUOTA : CHECK 
06 50 «£9 130 48 BLBC ~—RO,, 708 > SIGN na UO NOR IF LOW CLEAR 
i 89 : ALLOCATE THE BUFFER 
00000000'GF 16 0140 491 JSB G*EXESALLOCBUF : ALLOCATE THE BUFFER 
3 BED 146 49¢ 70$ POPL R3 > RESTORE PACKET 
03 50 58 149 49 BLBS  R0,72$ : CONTINUE IF NO ERROR 
00DF 1 14¢ 49h BRW 106$ : IF ERROR, THEN ABORT 1/0 
14F 496 : FALLBACK PRESENTATION FOR PROMPTS 


M 16 | 
TTYFDT = Terminal driver function decision rout 16-SEP-1984 02:14:32 VAX/VMS Macro V04-00 P 10 | 
~001 TTYSFDTREAD = FUNCTION DECISION ROUTINE, P=SEP-1984 SP:socee EMTORUR.eReaTIYEDT MaR;2 28° 19), 
428: 

OF 44 AS 06 EI BBC AT TSV_SCRIPT ,UCBSL_DEVDEPEND(RS) ,748: RTE SCRIPT LINE ? | 
50 Ns $ 3 ptt ive =RB_ DATACR ),RO ; GET ADbRESS FOR RTE PROMPT CHARACTER 
60 090009009 | $9 MOVE SrPnssca_ PROMPT.(RO) — ; INSERT RTE PROMP | 

gc AS 5200 748:  MOVL R2,IRPSLTSVAPTE(R3) —: SAVE ADDRESS OF aur FERED 1/0 BLOCK 

aS 57 BO MOVW RI CIRPSU~BUFF (RS) ; SAVE BLOCK SIZE AS QUOTA 


! ADJUST BUFFERED 1/0 QUOTA 

: MOVL pest. JIB(R4) RG : GET JIB ADDRESS 
MOVZWL + CONVERT TO LONG WORD COUNT 
SUBL Rt * JIBSL_BYTCNT(R4) ; ADJUST QUOTA WORD 

: MARK PACKET AS TERMINAL 1/0 


BISW #IRPSM_TERMIO, IRP$W_STS(R3) SET FLAG FOR GREATER PRIORITY 


2A AS 0200 BFS AB 
; INCREMENTS UPON COMPLETION 


: SET UP BUFFERED 1/0 BLOCK 


20 A220 a3 «=3C MOVZWL IRPSW_FUNC(R3),TTYSL_RB MOD (R2) SETUP THE MODIFIER WORD | 
20 a2 06 00 00° «FO INSV #0, #IRPSV_FCODE ,#IRPSS rue TYSL ORB MOD(R foie bits 
04 A2 59 00 MOVL R9. TTY$SL_RB_UVA(R2) NSERT USER VIRTUAL ADDRESS | 
62 GAA2 9 MOVAB TTYSL_RB-DATA(R2) , TTYSL_ Ae, TXT(R2) INSERT POINTER TO DATA AREA 
2C «BB PUSHR #*M< R5> AVE REGIST 
10 A2 3C AS OO MOVL. IRP$L_ if ~fEAMCRS) TTYSL ‘is’ TERM(R2); SOVE THIS DATA INTO THE READ BU) 
4c a3 Al ADDW3 IRPSWITT“PRMPT(R3) ,- 
4E A IRP$W-TT “PRMPT+2(R4), - 

34 Ag TTYSW"RB~ PRMLEN(R2) ; GET THE PROMPT LENGTH | 
40 A 2A 0 OVW  IRPSWBCAT(R3),TTY$W_RB_TXTSIZ(R2); THE TEXT SIZE 
55 34 Ae C MOVZWL  TTY$W RB_PRALEN (RG) RS ;GET THE PROMPT LENGTH | 
2 55 CO ADDL 5, TTYSL-RB_TXT(R2) : SETUP THE OFFSET'S RIGHT 
2C Ae 62 D0 MOVL  TTYSL_RB-TXT(R2),TTYSL_RB_LIN(R2); SETUP THE LINE ADDRESS ALSO 
30 A2 BA CLRW TTYSUORBLINOF (Re) : "START THE OFFSETS AT ZERO | 
3¢ Ag B4 CLRW © TTYSWIRB-TXTOFF (R2) -- | 
32 A2 BA CLRW TTYSWORB“LINREST (Re) : AND OTHER FIELDS TO BE ZERO | 
2A A2 BG CLRW TTYSW_RB-RDSTATE (R ) 
44 A2 B4 CLRW - TTYSW7RB“MODE (R2) ; ZERO OUT THE MODE FIELD ALSO 
38 Ag B4 CLRW TTYSWoRB-CPZCUR(R2) ; CLEAN THE CURSOR POSITION 
14 A2 D4 LRL  TTY$L-RBTECHSTR(Re) : CLEAN THE ECHO STRING | 
3C A 61 CE MNEGL #1,IRPSL-TT_TERM(R3) i**tto be removed (just for insurance) | 

4C A 1 AE MNEGW #1,IRP$W_TT_PRMPT(R3) s***to b ved (just for insurance) 
54 38 A3 00 MOVL RPSL_MEBIATRS) ,R4 > ADDRES BITMAP ADORESS 
2A «13 BEQL 0$ : IF EQL THEN STANDARD | 


-1F DF CAS_MEASURE_IOT 


DPV PVT PV DVD UDV VLDL UIVSUSVIVIVIVIVSVIUSUIVUSUSVSUSUSUSV SVS USUSUSVS ISIS VUS ISIS OOSUSVOS VOSS USVI USS ISIS ES 
SUSIE BS BB BBE EE FWD INI NPOPINININIIYD 2 2 PO MH OOOOOODOOOOCONUDO 
WO ODNAUE WIN 9 OO NAMES WIN = OOO NOAU EWN OOONAUE WN OOONAULS WN —O0OOn Nc 


SVVV GSC CVV GOO OOCWWWWWD S YS YF YF OOO OO WWW NNN INIA AAO OUUIMIE EE DD 
SOOQOOCOOCOCOSOM S HMM ODOWOSS OONG DBD OB BD NN OOOO AAOSOM PS SP PPONMAIOL VW mae 


ee a ek et = — — 4) 2 = = —) 2d os 2 ss bs bs — an as © 9 — 2s —) 2 ss 1 4) + 1 2 a — 


SOOOCOSOSOCOOSOSOSOSOSOSOOCOCOOCCOOOOOSOCOCOSOOSOOCOOOOCOOCOCOOOOCOCOOOOOOOOOO Fz 


BLBC G*PMSSGL_DOSTATS,75$ ; IF FLAG OFF, BYPASS NEXT INSTRUCTION | 
INCL  G*PMS$GL~NOSTDTRM : ELSE, INCR NON STD. TERMINATOR CTR | 
TSTL —BGCAP) : Ck Fk IF PROMPT SiZE 

INCL  G*PMS$GL_RWPNOSTD : INCR CTR OF RWP WITH NON STD TERMS 


dri 
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L 
AD 
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9 
Dd 
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4 
7 
7 
C 
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E 
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E 
E 
E 
E 
4 
4 
4 
4 
D 
F 
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4 
7 
9 
| 
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n 
R 
D 
Dd 
D 
D 
D 
E 
E 
E 
E 
E 
F 
F 
F 
F 
0 
" 
0 
0 
0 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
5 
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3 
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4 
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i 
T 
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er function decision rout 16-SEP-1984 02:14:3 AX/VMS Macro V04-00 Page 11 TT 
UNCTION DECISION ROUTINE iets 7 96 ei 2e YT TORVR. Sk RCITTYFDT.MAR;2 2) vO 
75$ ADDL _—R2, TTYSL_RB_TERM(R2) ; CALC ADDR OF BITMAP SPACE 
SUBW re Re PRM EMERG) oR ; CALC BITMAP SIZE 
SUBW = TTYSWTRBOTXTSIZ(R2) RI 
SUBW 396s #TTYSC_RB_DATA,R1 ; AND REMOVE THE LENGTH OF THE PACKET DATA 
TSTw R10 ; CHECK SIZE OF MAP 
NEQ 80S ; IF NEQ THEN SPECIFIED 
MOVZBL #4,R10 ; SET SIZE OF SHORT FORM 
OVAB. 4(R4),R11 ADDRESS SHORT FORM LONG WORD 
80$:  MOVCS R10,(R11),#0,R1,aTTYSL Rb TERM(R2); COPY BITMAP 
BISL #TTYSM_ST‘T TehewOwn R8~ ; "IF THE USER SPECIFIES T 
; TERMINATOR MASK THEN LET HIM HAVE IT 
90$: MOVL (SP)+,R2 ; RETRIEVE BLOCK ADDRESS 
MOVL (SP) R3 RETRIEVE THE IRP ADDRESS ALSO 
MOVW =P (AP), TTYSW_RB_TIMOS (R25; GET TIMEOUT COUNT 


: READ WITH PROMPT? 
: BBC TT ySV 3" PROMPT,R8,95$ ; BR IF NOT PROMPT READ 
4( ; GET UCB ADDRESS 


BBC art IS THIS LOWER CASE 
UcBsL DE = LOVER cas). 1508: NO THEN CONTINUE ON 


UCBs TREUDERNOSERS), 150$; BRANCH IF FALLBACK 

MOVC3 R7,(R6),TTYSL_RB_DATA(R2); COPY PROMPT STRING TO BUFFERED BLOCK 
95$:  POPR = #*M<R3,R5> ; RESTORE IRP ADDRESS 
: QUEUE 1/0 PACKET TO UNIT 


‘ MOVL RB, IRPSQ_TT_STATE+4(R3) ; PUT STATE DATA IN PACKET 
INSV #TtY$c_FC_READ #MIRPSV_ FCODE. MIRPSS_FCODE ate FUNC CRS) 


93$: 


JMP GuEXESOLOBRVPKT ; INSERT PACKET ON Q 
ERROR IN PROCESSING 
100s: MP G*EXESABORTIO ; THE 1/0 IS DONE 
; TRANSLATE TO UPPERCASE 


150$: 
BBS #TT2$V_FALLBACK 
wits DE VDEPND2{RS) 4908: BRANCH IF FALLBACK 
BBS \ RS NO TRANSLATE IF PASSALL 


BBS #TT$V ASSA 
UcBst DE BEWBEBERD RS), 93$ ; CHECK FOR PASSALL OR PASTHRU 
BBS att 
UCBSL TREUSEERDSCRS), 938 ; 5... 
160$: PUSHL : SAVE RB 
CLRL R ; CLEAR FLAG 
BBS #TT$V : IS THIS LOWER CASE 
uces ~bEVDEPEND (RS), 165$: NO THEN CONTINUE ON 
MOVL : SET DO LOWER CASE BIT 
165$:  MOVZWL TRESw_ TT ~PRNETOR (RE. RI; GET ADDITIONAL LENGTH 
CLRW SOU RPSW7 M1 PRMPT+ ; CLEAN THE INITIAL OFFSET OUT 
ADDL3 He ee : AND ADD IN THE LENGTH 
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¢ yaniyas Macro v04-00 
TTDRVR.SRCITTYFDT.MAR 


33 
4 


4 

6: 
; G 
; T 


1 


C 
GN'ROUTINE' 'P=SEP=19B4 19:5 


ag 


vayFee 
V04-001 


INATION ADDRESS 
E CATA 


ET DEST 
RANSLAT 


oR2 


VE_T 
$ 


TTYSL_RB_DATA(R2) 
: RANSLATE 


; THE PACKET CONTAINS THE FOLLOWING: 


1. IRPSQ_TT_STATE = SETUP TO BE THE NEW TERMINAL STATES AT THE 
TIME THE READ IS STARTED. 


2. IRPSL eit? - oo THE ADDRESS OF THE READ BUFFER FORMATTED 


> 1 
TTYFDT - Terminal driver function decision rout 16-SEP-1984 : AX/VMS M v04-00 P 
04-001 TIYSFDIREAD © FONCTION DECISION ROUTINE. “Segepe1one Soisecee | FANOMMS Bacto vOR=O0 Bo Page | 
A 617 DISABLE LSB 
A i vig eSDttL TTYSFDTITEMREAD = ITEM LIST SPECIFYED ON THE READ. 
Gh 620 ; TTYSFOTITEMREAD - FUNCTION DECISION ROUTINE FOR TERMINAL READS WITH 
eh 681 ITEM LISTS (EXTEND MODE). 
eA t ; FUNCTIONAL DESCRIPTION: 
A 625 THE TERMINAL READ Q10 PARAMETERS ARE: 
6A Ob ; P] = ADDRESS OF THE BUFFER TO RECIEVE THE DATA RECORD 
= 
é ei PS = ACCESS MODE AT WHICH THE ITEM LIST IS TO BE PROBED(OPTIONAL) 
. = 
631: PS = ADDRESS OF THE ITEM LIST BUFFER 
658 P& = LENGTH IN BYTES OF THE ITEM LIST BUFFER 
634 : THE ITEM LIST BUFFER IS PROBED AND THEN EACH ITEM IS VALIDATED. 
635 : IF ALL THE ITEMS ARE CORRECT THEN THE READ PACKET 1$ QUEUED TO’ THE 
636 : 1/0 QUEUE. 
638 
639 
640 : 
gh 
ge 


PAAAA AAO ASSO AOO OOO AAO 
>>>>>>>r>r>r>>r>r>r>r>r rrr rrr rr rr rYr Yr Yr rrr YP 
o 
= 
= 
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SOOOOCCOCCOOOCOCOCOCOOCOCOOCS COO OCOCOOOOOCOCOCOCOCOCOCOOOCOOOOCOOOOOOOOOOOOO 93s 


AS F 

645 Femme nn een n meme w eee w een eeeeesececes eed + 

646 i TTYSL_ RB_ TXT ' 

647 ae eee eae aaa teaeaateeetaateeteeteetetel + 

648 ' TTYSL -RB_UVA ' 

649 $eweeeewoeoeweoonne we me ee ee ere eee en ee eee neem een nees + 

650 iTTY$B_ RB -ECHLEN: Spare i TTYSW "RB. SIZE ' 
6A 651 teeener eer eee eee n wenn eeee wee nee neo -------- 5-25 === -------- = + 
6 $3. i TTYSL -RB_ECHSTR ' 
6A 65 teen nnn nnn nnn nnn n nnn nnn lense eee e eee ooo o-oo === ------ . 
6 654 ' _TTY$L -RB_PIC ' 
6A 655 a o-----+ 
6 656 ' TTYSL RB TERM ' 
6 657 tomwnewwncewewecnweneeseeroscesoccecosccoccoosoccsocooosocesccccce + 
6 658 \ TTYSL RB “MOD H 
6 659 Gemccw ewes ceennenewenenseseSeesenesesesesseressssesssssssssseres + 
6 660 ' TTYSL RB LIN H 
6A 661 Gocwrweeweroesoresnseesecrresoesesosserssssssssssesssosssosssoest 
a8 666 ! TTY SW -RB_LINREST i TTYSW_ "RB. LINOFF ' 
7 088 Hl TTYSw ~RB_ TIMOS ' TTYSW_RB_ PRALEN H 
oy $8 H TTY$W_RB_CPZORG i TTYSW_RB_ CPZCUR ! 
oh 008 ! TTY$W_RB_PICLEN i TTYS$W_RB_ TXTOFF H 
of ! TTYSW_RB_TXTECH i TTY SW _RB_ TXTSIZ ‘ 
7. of iTTYSB_ RB oRVFFIL! TTYSB -RB_RVFCLRi TTYSW_ R68 “MODE ' 


TRM 
ALL OTHER'S MOST BE ZERO 
TRMS “thus ODE 

LUE TO SPECIFY THE TYPE OF READ TO BE ISSUED 
CURRENT ae DES ARE: 
RMSK_EM_DEFAULT = NO SPECAIL FEATURES (DEFAULT) 

TRMSE” TEMTEXTEDIT = EXTENDED EDITING CAPABILITIES 
TRMSK_EM_RDVERIFY = CHARACTER VALIDATING READ 


& 
TTYFDT - Terminal driver function decision rout 16-SEP-1984 : AX/VMS v04-00 Page 14 
v04-001 TTYSFDTITEMREAD = ITEM LIST SPECIFYED ON mit} 7 96:18: i TTDRVR. SRE af ry YFDT.MAR;2 . (2) 
6A 7 H TTYSA_RB_PRM or TTYS$L R8_ DATA H 
oA if broae a ae NOSSO BEawssaweaesnens eee nese ee Se se as mos ae nase aero ey was = & Sa 
A 7 4. IRP SH. sett ® ARE SET FOR A FAST CASE ON FUNCTION TYPE 
A 7 5. IRPSWOBOFF IS THE QUOTA FOR THE I/0 
7 7 6. IRPSWIBCNT IS THE READ REQUEST SIZE 
ITEM LIST TYPES AND PROCESSING: 
eh TRMS_M POO LF LERSs 
6A VOLS - SPECIF bio READ MODIFIERS CURRENT MODIFIERS ARE: 
A TRMSM_TM_CVTLO 
A TRSR-TRCDSABLMBX 
6A TRMSM~THONOECHO SETS Ty V_ST_NOECHO 
6A TRMSM-TM_NOFILTR SETS T 10 _ST_NOFILTR 
6A TRMSM_TM~PURGE 
6A 69 TRMSM-TM_TIMED 
6A 3 TRMSM_TM_TRMNOECHO 
9 TRMSM_TM_REFRESH SETS TTYSV_ST_REFRSH 
9 MSM~TM-NOEDIT 
2 $M_TM_NORECALL 
9 
9 
9 
9 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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HEA AAA AA AAAAAOAAAOOOAOOOO 
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A 

A 

A 

A 

A 

A 

A 

A 

A 

A ut 

A “32 BIT VALUE SPECIFYING NUMBER OF SECONDS TO WAIT BETWEEN CHARACTERS. 
: TRMS_} fe IOSM_TIMED IF SPECIFYED IN THE ITEM LIST. 

A “ADDRESS OF THE TERMINATOR BITMASK. A ZERO LENGTH INDICATES AN IMMEDIATE 
A SHORT FORM BITMASK. 

A TRMS$_PROMPT 

A 0 “LENGTH AND ADDRESS OF PROMPT STRING. SETS TTY$V_ST_PROMPT AND 

A 1 TTYSV_ST_EDITREAD. 

A 1 TRM$_INISTRNG 

A 1 LENGTH AND ADPRESS OF STRING TO LOAD INTO THE READ BUFFER AS IF 

A 1 THE USER HAD TYPED IT. 

A 1 TRMS_PICST 

rn ! “LENGTH AND ADDRESS OF THE PICTURE STRING (ONLY VALID WITH RDVERIFY 
6A 1 TRMS_FILLCHR 
6A 1 TWO BYTE VALUE OF THE FILL AND CLEAR CHARACTER FOR READ VERIFY 

6A 1 Tans, jelor rset 

6A 16 BIT VALUE SPECIFYING HOWMANY CHARACTERS INTO THE INITIAL STRING 
6A TO BEGIN ECHOING. IF NON-ZERO THEN THE PROMPT STRING WILL NOT BE 
- ECHOED. DEFAULT IS ZERO. 

rs INPUTS: 

A R3 = ADDRESS OF THE IRP FOR THIS REQUEST 

A R4 = CURRENT PCB 

A RS = UCB ADDRESS 

A Rg = ASSIGNED CCB 

A R? = FUNCTION CODE 


Md 2 
v04-001 


Oc AC 
09 


50.14 
00000000 ' GF 


50. 6C 

51 04 Ag 

06 40 A 

00000000 ' GF 

Oc 20 A3 06 08 
1 


06 =~0 
SA 020A 


06. 9 


38 «020A 
04 


ce 
te] 


THE 1/0 IF 


Se ERT 


ao 
>>>> 


TYSFDTITEMREAD: 
TSTL 


~~ 
Cad 


omoomoo— 
> —CoC— EF Sr 


ACCESS TO REA 
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DDRESS OF FIRST FUNCTION DEPENDENT Q10 PARAMETER 


COMPLETION CODES: 


IN ERROR IS COMPLETED VIA EXESABORTIO 
THE 1/0 IF VALID IS QUEUED TO THE DRIVER BY EXESQIODRVPKT 
CCVIO = ACCESS VIOLATION ON BUFFE 
QUOTA = OVER QUOTA FOR BUFFERED 1/0 
SFMEM = INSUFFICIENT MEMORY 
DPARAM = ITEM LIST CONTAINED INVALID DATA. 
P4 (AP) ; P4 MUST BE ZERO 
4 : IT_IS THEN CONTINUE 
#SS$_BADPARAM,RO ; SETUP RO FOR E 
G*EXESABORT IO : AND ABORT THE 1/0 
#10SM_CVTLOW!= ; CHECK ALL FUNCTION MODIFIERS 
10$M_DBSABLMBX ! - 
1O$M~NOECHO! = 
1O$M~NOF ILTR!- 
1O$M~PURGE ! 
1OSM~TIMEDi- 
10$M~TRMNOE CHO! = 
1OSM~ESCAPE | = 
10SM~REFRESH,- 
JRPSO_FUNC(RS) 
$ ; MAKE SURE ALL ARE OFF 
R7 : CLEAN OUT THE BUFFER LENGTH 
RB 5 ANDTHE STATE BITS 
#TT2SV EDITING UCBSL _DEVDEPND2(R ),3$; IS THIS AN EDITING READ 
#TTYSM~ST_EDITING,R ; YES THEN SET EDITING 
#TTYSM~ST-OVERSTRIKE,R& ; IN OVERSTRIKE THEN SAY SO. 
#TT2$V~INSERT,UCBSL_DEVDEPND2(R5),3$; IF HE WANTS INSERT THEN 
#TTYSM~ST_OVERSTRIKE,R8 ; CLEAR INSERT 
D BUFFER 
P1(AP),RO ; GET BUFFER ADDRESS AND SIZE 
P2(AP),R1 ; 
> IF NEQ THEN ACTUAL READ 
HTTYSV_ST 


ST_EOL,- 
IRP$Q_TT STATE(R3),10$ ; SET EOL AND BRANCH 
G*EXESREADCHK : CHECK READ ACCESS FOR BUFFER 


; NO RETURN MEAN 
‘ RPSV_FCODE. Al. SS_FCODE, 1RPSW_FUNC(RS) #10$_READPBLK; PASSALL? 


YE 

#IRPSV_FCODE ,#IRPSS_FCODE,- ; TEMP READ PASSALL 
RPSW_FUNC(RS) ,#108~TTYREADALL 
2$ ; NO, BRANCH 

#IRPSV_FCODE ,MIRPSS_FCODE,- ; READ PASSALL W/PROMPT? 
RPSW_FUNC(RS) ,#I0$~TTYREADPALL 

0$ ; BRANCH IF NO 


TTY - ve 
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FDOT n decision rout 16-SEP-1984 14:3 AX/VMS Ma v04-00 p 1 
youro0t TTY ST SPECIFYED ON moet? 96 ize YT TORVR. REITTYEDT MARS2 — (3) 


mn 
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-IF DF CAS_MEASURE_I0T 
BLBC G*PMS$GL_DOSTATS,15$ ; IF FLAG OFF BYPASS NEXT INST. 
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inal dr 
TITEMRE 
CF 
CF 18s 
CF f 
fF 983 
fF O88 
cr 193 INCL  G*PMS$GL~PASSALL : ELSE INCR PASSALL COUNTER 
CF 79 ENDC 
CF £38 
cr 198 15$:  BBCS  #TTYS$V_ST_PASALL,R8,20$ ; SET PASSALL MODE AND BR 
p 1 ; CHECK FOR ACCESS TO ITEM LIST. 
1000 8F 3C 02D : 20$:  MOVZWL #TTYS$M_ST_READ,- 
40 A3 D 0 IRP$Q_TT STATE(R3) ; INIT AND ADD READ TO THE STATE BITS 
SE 00000058 8F C2 D9 804 SUBL  #TTY$R_IS_LENGTH, SP ; ALLOCATE THE STACK STRUCTURE 
5B t D E 05 MOVL _— SP, : MAKE R11 POINT TO THE STACK STRUCTURE 
08 AB D O2E 06 MOVG RO, TTY$L_IS BUF CRIT) + SAVE THE USER'S BUFFER ADDRESS AND LENGTH 
E 07 ASSUME TTYSL_IS_BUF+4 EG TTYSL_IS_BUFLEN; STATE THE ASSUMPTION 
38 BB O2E7 808 PUSHR” #*M<R3,R4,R5> : SAVE THE REGISTERS FOR EVERYONE 
5a 6553) s02E9 ~=—s 809 MOVL RB, : KEEP THE IRP ADDRESS 
50 08 ac 02 00 FF E 10 EXTZV #0,#2,P3(AP) RO ; THE ACCESS MODE 
00000000'GF 16 O2F 1 JSB G*EXESMAXACMODE : MAXIMIZE ACCESS MODE 
68 0 DO O2F i MOVL RO, TTYSL_IS_ACMODE(R11) :; KEEP IT IN THE STACK FOR LATER USE 
DO OcFB 81 MOVL  RO.R3 : GET THE ACCESS MODE INTO 
50 10 AC v0 FE 14 MOVL  P5CAP),RO ; GET THE ADDRESS OF THE ITEM LIST 
51 14 aC 3C 030 15 MOVZWL PO6C(AP) RI : AND IT'S LENGTH 
1c AB O50) 306 B16 MOVG RO, TTY$L_IS_ITMLST(R11) : SAVE THE ADDRESS AND LENGTH 
A 817 ASSUME TTYSL_IS_IfMLST+% EQ TTYSL_IS_LASTITM; STATE cu ASSUMPTION 
00000000'GF 16 O30A 18 JSB G*EXESPROBER ; MAKE SURE WE CAN READ THE ITEM LIST 
03 50 és 19 1 BLBS RO, 30$ : YES THEN START TO PROCESS IT 
0200 «31 13 : ITMREADERR : ELSE RETURN HIM THE ERROR 
16 ; 
16 § t START TO PROCESS ITEM LIST 
20 AB. OCC AB” CO 0 16 5 $0$: ADDL  TTYSL_IS_ITMLST(R11),TTYSL_IS_LASTITM(R11); MAKE THE LENGTH 
18 $ ; A POINTER TO THE END OF THE ITEMLIST 
18 g + CLEAN OUT THE STACK STRUCTURE 
30 aBC7:«O318B 0 CLRQ  =- TTY$L_IS_PRM(R11) ; ZERO THE PROMPT ADDRESS AND LENGTH 
10 AB C7 F 1 CLRQ TIVSLCISTINI (R11) : THE INITIAL STRING ADDRESS AND LENGTH 
40 AB O77 é CLRQ ss TTYSLIS“TERM(R11) + TERMINATOR MASK ADR AND LENGTH 
AB OD 4 CLRL  TTYSLTISTTIMEOQUT(RI1) : THE TIMEOUT VALUE 
4 AB D4 ? 4 CLRL TIVSLTES“MODIFYCRI1) : THE MODIFIER LONG WORD 
8 AB 7C A S CLRQ =: TTYSLIS“PIC(R11) t THE PICTURE STRING ADDRESS AND LEGTH 
4 AB B4 6 CLRW = TTYSWTISTFILLCHR(R11) ; FILL AND CLEAR CHARACTER 
6 AB B4 CLRW TIVSUCISTINIOFF (R11) > AND THE INITIAL OF FSET 
4 AB D4 : CLRL  TTYSLTISTEDITMODE(RI1) ; DEFAUL HE EDIT MODE 
CAB OG é CLR TTYSL “1S SPECIFYED(RI1) + ALSO THE ITEM SPECIFYED BIT MASK 
40 ASSUME TRMS_LASTITM CE 3 : MAKE SURE THAT THE ITEMS WILL 
9 84 : FIT IN THE BITMASK. 
07 «£0 9 4¢ BBS #TTSV_LOWER,- + 1S THIS LOWER CASE 
05 44 AS 4 UCBSL“DEVDEPEND(RS) ,ITEMLOOP; NO THEN CONTINUE ON 
08 €2 E 844 BBSS #l0$V~CVTLOW,- 


H 1 
TTYFOT - Terminal driver function decision rout 16-SEP-1984 02:14: AX/VMS Macro V04-00 Pa 17 T) 
yourb1 TTYSFDTITEMREAD = ITEM List SPECIFYED ON ~$Eb=138% 96:16:22 TTDRVR.SRCJTTYFDT.MAR; 2 - i vw 
00 24 AB 4 i TTYSL_IS_MODIFY(R11),ITEMLOOP; YES THEN SET LOWER IN FUNCTION 
4 47; 
4 48 ; MAIN ITEM LIST PROCESSING LOOP 
4 ; {TEMLOOP: 
59 1C AB 00 4 0$: MOVL TIy8 1$_ITMLST(R11),R9 ; GET THE ADDRESS OF THIS ITEM 
xm 2 ¢ 4 ° ADDL #TTY$R_IC_LENGTH, TTY$L 18 ITMLST(R11); UPDATE THE COUNTER 
20 AB OC AB” D1. «034 CMPL  TTYSL_TS_TTMLST(A11), TTYSC_IS LASTITM(R11); ARE WE DONE 
OF 15 ; 34 BLEG 608 ; NO THEN GOTO THE DISPATCHER 
20 AB v1 3 36 CMPL 8 TTYSL_IS_LASTITM(R11); WAS THE ITEM LIST THE CORRECT LENGTH 
iF BNEQ 3 4 ; NO THEN BAD PARAMET 
00 5 38 BRW 00$ : YES THEN ALLOCATE THE BUFFER AND BEGIN 
0281 1 0358 85 558: BRW BOPRMERR : GIVE ERROR 
0285 31 3 60 $:  BRW ITMREADERR : ERROR OUT 
61 B6¢ : ITEM LIST DISPATCHER 
61 64 : INPUTS TO ROUTINES: 
6 3 66 : R4 = PCB ADDRESS 
6 61 867: RS = UCB ADDRESS 
61 868: R7 = SIZE OF DATA AREA TO BE ADDED TO THE NORMAL READ DATA SECTION 
0361 869 : RB = SECOND LONG WORD OF THE UNIT STATE VECTOR 
361 870 ; R9 = ADDRESS OF THIS ITEM BUFFER 
61 871: R10 = IRP ADDRESS 
361 es R11 = STACK STRUCTURE ADDRESS 
61 ri : ALL OTHERS ARE SCRATCH 
08 Ao «Ss (0361 id: 60$:  TSTL  TTYSL_IL_RETADR(R9) : MAKE SURE THE RETURN ADDRESS IS ZERO 
F5 12 0364 87 BNEQ 55$ : ERROR IF NOT 
51 0209 3C 0366 8 MOVZWL TTY$W_IL_TYPE(R9),R1 : GET THE ITEM TYPE 
OA 51 Di O36A 87 CMPL ——R1,#TRMS"LASTITM : IS THIS ITEM IN RANGE 
EC te 6D 880 BGeGu 55$ ; Np THEN E 
E7 30 AB SC#SS)”s—=é«‘é f 1 BBSS Ri, TTYSL_IS_SPECIFYED(R11) 558; ONLY ALLOW ONE OF EACH ITEM 
74 5 CASE  R1,TYPE=W,<=- ;DISPATCH ON THE ITEM CODE 
74 4 MODIFIERS.- 
74 5 EDITMODE, - 
74 : TIMEOUT, - 
74 TERM, - 
74 : PROMPT ,- 
74 INISTRNG,= 
74 0 PICSTRNG.- 
74 891 FILLCHR,- 
74 36 INIOFFSET,= 
74 89 AL TECHSTR> 
CD 4611 «#(038C) | 894 BRB 55$ 
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; ALLOCATE BUFFER AND DO FINAL VALIDATION 


mn 
= 


: VALIDATION BEFORE ALLOCATING BUFFERS 


56 AB OB7 DECW  TTYSW_IS_INIOFF(R11) » MAKE INDEX AN OFFSET 
14 0B 5608 Bi CMPW 3s TTYSWTIS"INIOFF(R11),TTYS$L_IS_INILEN(R11); DOES THE INITIAL 
; STRING OFFSET STAY WITHIN THE INITIAL STRING 
(3 (14 BGTR 55% + NO THEN ERROR OUT 
: VALIDATION SPECIFIC TO READ VERIFY 
04 AB 1 D1 : CMPL  #TRMSK_EM_RDVERIFY,TTYSL_IS_EDITMODE(R11); ARE WE A READ VERIFY 
ps BNEQ 5$ | NO THEN DON'T DO THE VALIDATION 
2c A p Ist TTySL_1S_PICLEN(RI1) + ZERO LENGTH PICTURE STRING IS ILLEGAL 
2C AB O14 ABD COD CMPL TTYSL_IS_INILEN(R11), TTYSL_IS_PICLEN(R11); IS THE PICTURE STRING 
Bi 12 BNEQ 55$ ; CONG ENOUGH? NO THEN ERROR OUT 
56 AB BG Sank INCW  TTYSW_IS_INIOFF (R11) : UP THE INITIAL OFFSET 
12 44 AS E1 "BBC #TTSV_SCRIPT,UCBSL_DEVDEPEND(R5S),310$; RTE TERMINAL LINE ? 
D6 INCL 7 ; ADD RTE PROMPT SIZE 
58 20 ¢ 3 BISL2 #TTYSM_ST_PROMPT RB : ENSURE FUNCTION IS A RWP 
00000200 8F (8 BISL2 #TTYSM™ST-EDITREAD,- 
40 AA 3 IRP$Q_TT STATE(R105 - ENSURE FUNCTION IS A RWP 
00 2A AA 01 ~E2 «O03 #IRPSO_FONC, IRP$W_STS(R16),310$; ENSURE TRANFER DIRECTION RESET 


310$: 


| ADD IN THE DATA REGION 
: AND THE DATA BUFFER SIZE THEN ALLOCATE THE READ PACKET 


: ADDL #TTYS$L_RB_DATA,R7 ADD IN THE DATA REGION 
ADDL TTYSL_TS_BUFLEN(R11),R7 ; AND THE AREA FOR THE DATA 
SAVE THE LENGTH IN R1 


57 0000004 8F ; 
R : 
JSB G*EXESBUFFRQUOTA + CHECK QUOTA 


: 

57 OC C 
D0 

00000000 ' GF 18 
i 
: 


SOMOS OOOAOOOWWWIDS SYP FP OOOWOOOOOOOOMWM@camcacnc <5 


: ITEM READ ERROR? IF YES THEN HANDLE IT 
JSB G*EXESALLOCBUF BUF F 
: ERROR THEN HANDLE AS SUCH 
315$: BRW LTAREADERR 


ADJUST BUFFERED 1/0 QUOTA 


$17$:  MOVL Proey 1 ISCAS) RO ; GET JIB ADDRESS 
MOVZWL R1,R ; CONVERT TO LONG WORD COUNT 
SUBL R1,JIBSL_BYTCNT(RO) ; ADJUST QUOTA WORD 
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COM AAA AMMMMMMMMN 


2 ; SETUP REGISTERS AND ADDITIONAL CONSTANT FIELDS 
57 D & MOVL RG oR? ; GET THE READ BUFER ADDRESS 
C AA D 4 MOVL R7, IRP$L_SVAPTE(R10) ; SAVE THE ADDRESS 
QO AA 1 8B 4 MOVW R1, 1 RPSW_BOFF (R10) ; SAVE THE site AS _A_QUOTA 
3 A7 1 8 5 MOVW R1,TTYSW_RB Siz6 SR? ; SAVE THE SIZE FOR THE SYSTEM 
4A A7 E 2 : MOVAB TTYSL_RB-DATA(R7) ,R9 ; AND GET THE BEGINNING OF THE DATA AREA 


4 
vye - Terminal driver function decision rout 16-SEP-1984 14:3 AX/VMS Macro V04-00 P 19 
bueb01 TTYSFDTITEMREAD © [TEM LEST SPECIFTED ON “Segepeiope Souseiee Fa ROMMS Bacco VOK=00 > Page 4 
r i: ; FILL IN NEWLY ALLOCATED READ BUFFER 
4 REGISTERS ARE AS FOLLOWS: 
4 ; ; R4 = PCB ADDRESS 
4 : ; RS = UCB ADDRESS 
4 ; R7 = READ BUFFER ADDRESS 
4 360 : R9 = BEGINNING OF THE DATA AREA (USED AS POINTER TO THE NEXT FREE 
4 1: ADDRESSES IN THE READ BUFFER) 
4 96¢ ; R10 = IRP ADDRESS 
4 $e, ; R11 = STACK BUFFER ADDRESS 
4 65 : 
4 966 ; COPY IN PROMPT AND ASSOCIATED DATA 
0 30aB 7 og 6 $68 y MOva TVS 1s. PRM(R11) RO; GET THE ADDRESS AND LENGTH OF THE 
4 A? 51. BO O40A 69 MOVW TTY$W"RB_PRMLEN(R7) : COPY IN THE LENGTH 
B58 05 €1 40 970 BBC artysve ST_PROMPT,R8,340$; DO WE HAVE A PROMPT 
41 76 : HANDLE RTE MODE 
0D 44 A506 €1 041 974 ° BBC #TTSV SCRIPT . aucest D vp PEND(R5) 320$; IS THIS RTE MODE 
6941 06000000" 9¢ 90 0417 975 MOVB  a#PMSS$GB (R9)CR1J; PUT THE CHARACTER IN PLACE 
34 A7 BE O41F 976 INCW  TTYSW_RB~ -PRRLENTRDD ; INCREMENT” THE PROMPT LENGTH 
59 D6 0422 «977 INCL R9 : ADD 1 TO THE CU URRENT ADDRESS 
51 D3 424 978 320$:  TSTL ; ANY CHARACTERS TO MOVE 
45 13 04 6 97 BEQL F10s + NO THEN GO AROUND 
59 «651~— CO 4 8 980 ADDL _=R1,R9 : UPDATE THE ENDING ADDRESS 
04 ; 98¢ > TRANSLATE FOR NON-LOWER CASE TERMINALS IF NECESSARY 
1348 AS OF £0 04 984 ° BBS #TT2$V_FALLBACK ,UCBSL_ DEVDEPND2 (RS) 327$ 
07 £0 04 985 BBS #TT$v_COWER IS THIS LOWER CASE 
33 44 AS 4 986 wiiysors ~DEVDEBEND (RS) , +3308; $: NO THEN CONTINUE ON 
2F 58 02 EO 4 3 3 f 325$: BBs at SI P PASALL RB, 3308 NO TRANSLATE IF PASSALL 
2A 4b nS # 0438 989 ae Ucast DEVDEPEND(RS) .330$; CHECK FOR PASSALL OR PASTHRU 
25 48 ig 44 991 coed UCBSL TREVDEPRDS CRS) 39063 vs. 
0180 ef 44 395 "  PUSHR = #*°M<R7,RB> : NO - THEN SAVE R7 AND R8 
B D4 0447 99% CLRL oR ; ASSUME'NO LOWER CASE 
07 £0 0449 995 BBS #TTSV_LOWER,- : IS THIS LOWER CAS 
03 44 A5 448 %6 U Bs DEVDEPEND(R5),329$: NO THEN CONTINUE ON 
8 01 po 44t 9 MOVL R : LOW BIT SET MEANS TRANSLATE TO LOWER 
52 4A AT 4 98 329$: MOVAB TIVSA _RB_PRM(R7) R? + WE MUST MOVE TRANSLA TED SO GET DEST ADDRES 
38 D0 0455 999 MOVL TTYSLTIS"PRMBUF(R11),R7 ; GET THE USERS BUFFER LENGTH (FOR FALLBACK 
6 50 DO 0459 1000 MOVL RO,R : GET THE ADDRESS OF THE STRING 
5 45¢ 1001 MOVL RI.R : AND LENGTH TO MOVE ; 
841 45F 1 ; BSBW ROVE TRANSLATE : THEN TRANSLATE UNTILL THE HART'S CONTENT 
018 ar BA 462 1 POPR WERT AR + RESTORE R 
5 11 0466 1004 BRB $40 
ash 18h 
4A A7 60 51 28 468 3308 MOVC3 R1,(RO), TTYSA_RB_PRM(R7) : MOVE IN THE CHARACTERS IN THE PROM 
46D 1 3 
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HANDLE INITIAL STRING OFFSET 


i CHECK FOR READ VERIFY 


PALA 9 OONANE WIN 9 OD NAW EWN O OD NAUE WIN OS OONAUES WIN OVWONOULSWH 0 Oc 
@o 
wow 
o 


— a th 8 4 = 2 2 2 bs ts 4s 2d ss 2 bs — 2 a 8 a a ss st as ss 


BNEQ 


DeVDEPND2<RS) 


R5 
Aioev CTR-EVILOU, TYEE 1s =MODIFY(R Rit) 5 
$~ 


#TTYS$V"ST gRASALL.R 8,345 


BBS #TT$V_PASSAL 
UCBS$L~ DEVDEPEND (RS) , 345$ 
BBS #TT2$0_PASTHRU 
4 UCBSL “BEVDEPNDS(RS) , 345$ 
43 344$: 
4 PUSHR #*M<R7,R8> 
4 CLRL 
4 BBC #TRMSV TM_CVTLOW,- 
4 vse Ts TS_MODIFY(R11) 
4 MOVL sof] 
49 347$: MOVL  TTYSL_RB_TXT(R7) .R2 ; 
3 MOVL TTYSLTIS"INIBUF(R11),R7 ; 
MOVL RO. RG : 
5 MOVL R1.R ; 
BSBW § MOVE TRANSLATE ; 
POPR #*M<R7,R8> : 
BRB 350$ 
$ MOVC3 =R1, (RO) ,@TTYSL_RB_TXT(R7) 
6 


; TRANSLATE INITIAL STRING FROM LOWER CASE TO UPPER CASE IF NECESSARY 


STORE THE UCB ADDRES 
448; FALLBACK THEN TRANSLATE 
$; ARE WE CONVERTING 
o tk 3438; AR IF PASSALL 


; CHECK FOR PASSALL OR PASTHRU 


K 
driver function decision rout 16-SEP-1984 14:3 AX/VMS Macro V04-00 e 
READ © ITEM LEST SPECISVED ON PaSEPoIORG $o:cccee LANONUS. Caeser Veer Oe 2 Page 20, 
19: ; setup the data field 
1 MOVL  R9,TTY$L_RB_TXT(R7) : SAVE THE ADDRESS OF TH NNIN 
1 MOVL R STTVSLSRECLINGRD) + THE DATA IN T — 
1 CLRW © TTY$W_RB-LINOFF(R7) + ZERO OUT FIELDS IN THE READ BUFFER 
1 CLRW TTYSUCRB-LINREST(R7) 
1 CLRW «=o TTYSW7RB" XTOFE (R7) 
1 CLRW T1VSW~RB-MODE(R ) ; CLEAN OUT THE REPROMPT MODES 
1 CLRW = TTY$WTRB"RDSTATE(R7) 
1 CLRL = TTYSL“RBTECHSTR(R7) : CLEAN THE ECHO STRING 
oe EETEL ES RUELENR D1} oO i ADE IM THE BUSPER TO OUR COUNTS cuctN 
MOVL THYStrdS BURLAND ATT B-UVA(R7); AND SAVE THE USERS ADDRESS 
MOVE IN INITIAL STRING 
: BBC #TRMS_INISTRNG T1ysh PECIFYED(R11),350$; DO WE HAVE A STRING 
MOVQ TTY$L~IS_INI(RI1),R GET THE ADDRESS AND LENGTH 
MOVW  R1,TTYSWTRB_TXTOFF(R PUT THE LENGTH IN THE RIGHT PLACE 
MOVW 1. TTYSWTRB~LINOFF (R AND THE LINE COUNTER 
6 BEQL  356$ NO INITIAL STRING THEN NO NEED TO 
3 CHECK FOR UPPER CASE 
: 
4 


; NO = THEN SAVE R7 AND R8 
; ASSUME'NO LOWER CASE 


3478; ti IF UPPER CASE ONLY 
LOW BIT $ 


H 
OF THE STRING 


AND LENGTH VE. 
THEN TRANSLATE UNTILL THE HART'S CONTENT 
RESTORE R 


; MOVE IN THE INITIAL STRING 


BBC #TRAS_INIOFFSET, TTYSL_IS_SPECIFYED(R11) ,360$; NOT SPECIFYED 


CMPL g1ReSK. EM_RDVERIFY, rvvel,, IS_EDITMODE(R11); ARE ue READ VERIFYING 


NO THEN HANDLE NORMAL 


L 1 
TTYFDT - Terminal driver function decision rout 16-SEP=1 4:32 VAX/VMS Macro V04-00 Page 21 1) 
v04- Bb TTYSFDTITEMREAD ~ ITEM LIST SPECIFYED ON | ?=SEP=1 1382 96: 43: if ETT ORVR. SRCITTYFDT.MAR;2 . #3) ve 
30 A? ‘56 AB 00 4F7? 1067 MOVL 1TySu. IS_INIOFF (R11), TTY$W_RB_LINOFF(R7); SAVE THE INITIAL OFFSET 
19 1 aE ‘ BRB 60$ 
are 1074 ; NORMAL INITIAL OFFSETS | 
56 AB 85 4FE 1 fs $55$:  TSTw I 1S. IS_INIOFF(R11) ss; Is THERE REALY AN INITIAL OFFSET? 
14 3 : 107 BLSS 60$ ; then do ng 
56 AB OB 1074 SUBB3 TTY$W_IS_INIOFF(R11),- GET THE LENGTH TO ECHO 
0B A? 14 AB 506 1075 TTY$L— TISTINILEN(RI1) ,TTvS8 B_RB_ECHLEN( 
51 56 AB 3 SOA 1 i: WOVZYL TTYSW~ Is: INJOFF(R11),R1 ; GET-THE init IAL OFFSET INTO A LONG WORD 
67 51 C1 050€ 107 ADDL3 R1,TTY$L“RB TXT(R7),-  : GET THE LOCATION OF THE FIRST CHARACTER 
14 A7 3] 1 £8 TTS. RB-ECASTR(R7) 
44 a7 02 98 31 43 MOVZBW #TTYSR tit Uae trveu,ne. nose ats AND SETUP THE ECHOING CORRECTLY 
217 1 : MOVE IN PICTURE STRING 
14 3C AB 06 ET 215 1 j $60$: BBC #TRMS_PICSTRNG TTYSt 1S_ SPECIFYED(RI1) 3708 
50 28 AB 7D a1 1084 MOVa *TTYS$L™ 1s_P PIC(R11),R ; GET T ADDRESS AND LENGT 
3E A7 21 BO 0520 1085 MOVW RI, TTYSWTRB_PICLEN(R7) : KEEP ThE MP ICTURE Morin LENG 
18 a?) 559) —s«=Os«0524 1 : MOVL  R9,TTYSL“RB~PIC(R7) : AND. THE ADDRESS OF IT IN THE "SUFFER 
59 31 ¢ 528 1 ADDL. ——-R1.R9 UPDATE “THE POINTE 
1887 60 51 3 é wes MOVC3 R1,(RO),@TTYSL_RB_PIC(R7 73 MOVE IN THE PICTURE STRING 
530 1090; 
03 1991 ! MOVE TERMINATOR MASK INTO BUFFER 
1C A7 09000000" EF 9€ 05 1098 : MOVAB TTYSA_ STANDARD TTY$L_RB_TERM(R7); SETUP DEFAULT TERMINATOR MASK 
11 3¢ AB. 03 5 538 1094 BBC #TRM “TER Trv$t 1S _SPECIFYED(R11),390$; DID THE USER SPECIFY 
AB D 053D 1095 MOVa TTYSe 1s. TERM T),RO ; A TERMINATOR MASK, YES THEN GET | 
1C a7? 5 0 0541 1 3 MOVL. R9,TTYSL-RB signa) : TELL WHERE THE MASK WILL END UP 
69 20 00 60 31 € 0545 109 MOVCS R1.(RO),#0,¥32, (R9) : MOVE THE MASK IN ZEROING UNUSED BITS 
59 53 00 348 1098 cal MOVL R3.R9 : MOVE R9 TO THE END OF USED SPACE 
1¢ 3C AB. 09 gi 54 1100 "BBC #TRMS_ALTECHSTR, TTYSL_IS_SPECIFYED(R11) ,400$ 
5048 D 33 1101 MOVQ TTYS$L7IS_AES(R11),RO.~ 3 GET THE ALTERNATE ECHO LEN AND ADR 
28 A751 80 557 11 é MOVW R1,TTYSWTRB_AESLEN(R7) ; MOVE I THE LENGTH 
iF 13 0558 11 BEQaL 40068 : NO LENGTH THEN DON'T BOTHER 
24 AT 2 00 55D 1104 MOVL  R9,TTY$L_RB_AES(R7) + ELSE GET THE ADDRESS 
69 1 561 1105 MOVCS 1. (RO), TROT : AND MOVE IN THE DAT 
53 D0 565 (11 6 OVL R3.R9 : UPDATE THE END ADDRESS 
58 02000000 BF C 368 1 oan BISL #TfY$M_ST_ECHAES,R8 t SET THE FLAG INDICATING FIRST CHARACTER 
56 11 § ” aise 
36F 1110 : SETUP TIMEOUT 
36 A? +50 AB_ BO Bef W11¢ ‘ MOVW =‘ TTYSL_IS_TIMEOUT(R11),TTYSW_RB_TIMOS<R7); MOVE TIMEOUT IN 
ap W114 : MOVE FILL CHARACTERS INTO THEIR PLACE 
46 A? 7% 1116" MOVW  TTY$W_IS_FILLCHR(R11), TTYSsB RB_RVFCLR(R7); MOVE THE FILL 
= ae 579 We . D CLEAR CHARACTER INTO PLACE 
379 1118 A ASSUME TTYSB_RB_RVFCLR+1 EQ TTY$B_RB cavelin 
$78 Hi : IF THIS IS A READ VERIFY THEN WE HAVE TO SKIP MARKERS 
4 1 0579 11 CMPL  #TRMSK_EM_RDVERIFY, TVS, IS_EDITMODE(R11); MAKE SURE WE ARE IN READ 
seams gt * 3 11 4 BNEG 6508 NO THEN SKIP THE WHOLE THING 
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= Terminal driver function decision rout 16-SE 4 4:3 AX/VMS Macro V04-00 Page 23 

TTY FDTITEMREAD = ITEM LIST SPECIFYED ON o-seFe 1382 96: 43: i? ET TORVR. SREITTYEDT MAR:2 ° ti) 
DF 11 ; 
DF He ; ERROR HANDLEING ROUTINES 
DF 1175 BDPRMERR: 

5102 a9 3° DF 1126 MOVZWL TTY$W_IL_TYPE(R9),R1 ; RETURN THE BAD ITEM # IN R1 
50 14 %3C O5€3 117 MOVZWL #SS$_BADPARAM,RO ; AND THE ERROR IN RO 
3 1178 ITMREADERR: 
38 «=6BA (0566 «(1179 POPR #*M<R3,R4,R5> ; RESTORE STATE 
00000000'GF 17 O5EB8 1180 JMP G*EXESABORTIO + and abort the 10 


B 2 
vayFRy - Terminal driver function decision rout Ve=s6b= 1388 96:16:38 yes Macro V04-00 Page 24 
01 TTYSFDTITEMREAD = ITEM LIST SPECIFYED ON 7=SEP=1984 17:56:4 TTDRVR.SRCITTYFDT.MAR;2 (6) 

ape 

EE 1 4 i > ALTECHSTR 

33 1 § : DESCRIPTION: 

SEE 11 g: : STRING TO BE ECHOED UPON THE FIRST VALID CHARACTER 

14 1 3 ; THAT IS TYPED. 

He: 1191 ALTECHSTR: 

01 04 AB D1 OSE 1198 CMPL TTY$L_IS_EDITMODE(R11), ATRMSK EM RDVERIFY; ARE WE A READ VERIFY READ 
EB iF; 2 113 BNEQ BOPRMERR™ : NO THEN ERROR OUT 
50 O4A F4 1194 MOVL TTYSL_IL_ADR(R9) ,RO 3 GET THE ADDRESS OF THE PROMPT 
51 69 g SFB 1195 MOVZWL TTYSWIIL“LEN(R9).R1 3 AND THE LENGTH 
17 SFB 1196 BEQL 208 ; NO PROMPT THEN DO NOTHING 
48 AB 500s 7DsCOOSFD S119 mMOva RO,TTYSL_IS AgSCR ; SAVE THE PROMPT LENGTH AND ADDRESS 
601 1198 ASSUME TTYSL_IS_AES+4 EO TTYSL ns. hes eh 
53. 68 dO 0601 119 MOVL TTY$L_I1S_ACMODETRIT),R3 ; SETUP OUR ACCESS MODE 
00000090" gr 16 in 1200 JSB EXE SPROBER ; CHECK THE Access RS THE BUFFER 
03 50 gs 60A 1201 BLBS RO, 10$ ; NO ERROR NUE 
FFD6 1 0600 1 ¢ BRW I TMREADERR 3 ELSE ERROR 
57 4C AB co 610 1 19S: ADDL TTY$L_IS_AESLEN(R11),R7 ; ADD IN THE LENGTH 
FD2C 1 0614 1204 20$: BRW ITEMLOOP™ 3; CONTINUE ON NORMALY 
0617 1205 
0617 1206 
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; EDITMODE 

; DESCRIPTION 

; EDIT MODES. 

EDITMODE: 
T TYSW_IL_LEN(R9) : 

DPRMERR™ 

TYSL IL _RETADR(R9) ; 


ee 
it ADR(RI) ,RO 


@ 
z 
m 
2 
22838797 
oo 
ez 


: 
; 
| 


Fout 16-SEP-1984 02:14 


Page 25 


at ona. By 


YE LPATES ARGUMENTS AND SETS STATE BITS FOR THE DIFFERENT TYPE OF 


LENGTH MUST BE ZERO 
ALSO THE SECOND ADDRESS 
GET T 


inns ; HE MODE 
CMPL TRA k ath RDVERIFY,RO ; AND CHECK IT FOR VALITITY 
BGTR DP ; NOT V AL iD THEN ERRO 
BNEQ + NOT VER IFY THEN SKIP 
BISL #TTYSM_ST_RDVERIFY gjRPse. TT STATE CR} d; SETTING: READVERIFY STATE 
BISL #TTYSM~ST“EDITING,R YES TH T EDITING 
10$:  MOVL  RO,TTYSL_TS_EDITMODE(R115; SAVE THE MODE 
BRW ITEMLOOP 


ee _ 4 


dD 2 
TTYFDT - Terminal driver function decision rout 16-SEP-1984 4:3 AX/VMS Macro V04-00 Page 
youroot TTYSFDTITEMREAD - ITEM LIST SPECIFYED ON tiers Pi %6 4 i ET TORVR. SREDT TTYFDT.MAR;2 ° (9) 
eee 
41 : TFILLCHR 
41 1035 ; DESCRIPTION: 
41 1 $ ; MOVE THE FILL CHARACTERS INTO THE STACK STRUCTURE. 
‘| ; FILL CHARACTERS ARE USED BY READ VERIFY. 
641 1 § FILLCHR: 
01 04 AB 01 41 1240 CMPL = TTYSL_IS_EDITMODE(R11), #TRMSK EM ROVERIFY; ARE WE A READ VERIFY READ 
» Bes. 45 1241 BNEQ 6G ; THER ERROR OUT 
69 4 64 1 46 TSTW  TTY$W_IL_LEN(R9) ; LENGTH MUST BE ZERO 
6D 49 124 BNEQ GOBAD™ 
08 ay p 648 44 stl Tryst IL_RETADR(R9) ; ALSO THE SECOND ADDRESS 
54 AB 04 AD 90 £36 1 46 MOVW TTYSL_IL_ADR(R9), TTYSW_ Is ~FILLCHRCRIT) ; MMOVE IN THE FILL CHARACTERS 
FCEB 31 0655 124 BRW ITEMLOOP THEN CONTINUE ON WITH THE LIST 
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n decision rout 16-SEP-1984 33 AX/VM cro V04 72 
ST SPECIFYED ON a: EP-1 1382 96: 43: i YT ORVR REIT TYFDT.MAR;2 
*INIOF FSET 
DESCRIPTION: 
SAVE TH HE OFFSET INTO THE intr IAL STRING, RANGE CHECKING MUST BE 
inforrskyie” TO ALLOW THE ITEMS TO APPEAR IN ANY ORDER. 
re. IL_LEN(R9) 3; LENGTH MUST BE ZERO 
TSTL TTYSL_IL_RETADR(R9) ; ALSO THE SECOND ADDRESS 
MOVW TTYSL_IL_ADR(R9) , TTYSW_ 1S. AeA MOVE IN THE OFFSET 


BLSS GOBAD™ NO NEGITIVE NUMBERS ALLOW 
BRW ITEMLOOP ; THEN CONTINUE ON WITH THE LIST 
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TTYFDT - Terminal driver function decision rout 16-SEP- 4:3 AX/VMS v04-00 Page 
youro0t TTYSFDTITEMREAD ITEM LIST SPECIFYED ON mits SEP- 138 96: 43: if YT TORVR. Se SRCITTYFOT. MAR; 2 . (3B; 
B 1 4 i p++ 
B ; INISTRNG 
B 1 oP : DESCRIPTION: 
8 g : CHECK ACCESS TO THE USERS INITIAL STRING. 
é 1 2 INISTRNG: 
50 04 a9 00 127 MOVL  TTYSL_IL_ADR(R9),RO : GET THE ADDRESS OF THE INITIAL STRING 
51 69 3¢ 66 1 fe MOVZWL TTY$W JLILEN(R9) R1 : AND THE L 
10 AB «50 «= 7D.s0672=—s127 MOVO RO, TTYSL7IS_INI(A11) SAVE THE INITIAL STRING LENGTH AND ADDRESS 
676 1274 ASSUME TTYSL_IS INI +4 €0 TTY$L_IS INiteh 
18 AB 51 p 67 1275 MOVL ~ R1,TTYSL_IS_INIBUFTR11) ; KEEP P THE LE 
0 7A 1 id: BEQL 208 ; TIAL SO TING THEN DO NOTHING 
53 68 00 067C 107 MOVL —-TTYSL 91S ACMODE(R11),R3 ; Serie OUR ACCESS 
00000009 F 16 O67F 1 £8 JSB G*EXESPROBER ; CHECK THE ACCESS ON THE BUFFER 
1750 €9 0685 1027 BLBC = RO, 108 ; NO ERROR THEN CONT INUE 
15 48 aS OF £0 0688 1280 BBS atte V_FALLBA Ck UCBSL DEVDEPNDZ(RS) . 5 $ 
0C AB 14 AB D1 «(068D «(1281 15$ CMPL «=«-TTY$L_TS_INILEN(RI1) ,TTYSL 1 S BUFLEN(RI1 DOES THIS STRING FIT INTO 
34 14 632 1 g BGTR  GOBAD ; no THEN INFOR n tne 
40 AA 00000200 8F CB 0694 1 BISL — #TTYSM_ST_EDITREAD, IRPSQ_TT STATE (R10); “WAKE (SURE “THE PROMPT IS ECHO 
FCAS 31 «069C «1284 : $:  BRW ITEMLOOP ~ | CONTINUE ON NORMA 
FF44 «31 «069F 1285 10$:  BRW ITMREADERR ; ERROR our 
59 DD O6A2 1 : 30$: PUSHL R9 : SAVE R9 OVER THE CALL 
51 10 AB DO 06A4 1 MOVL TTYSL_IS_INI(R11),R1 : RESTORE ADDRESS AND LENGTH 
5014 00 6A8 1288 MOVL  TTYSLTIS"INILEN(R11),RO ; AND THE 
068 6AC 1289 BSBW ADDFACL + CALCULATE THE ADDITIONA 
6AF 1290 ; CHARACER COUNT OF FALLBACK 
14 AB 59 CO O6AF 1291 ADDL R9,TTYSL_IS_INILEN(R11) ;ADD INT HE COUNT 
59 8ED0 0685 1 36 POPL R9 : RESTORE R9 
DS 11 0686 129 BRB 15$ ; 
0688 1294 
FF24 31 0688 1295 GOBAD: BRW BDPRMERR 
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G 2 
SPECIPTED ON PHSEPM19B6 fP:sei4e LTYDRVR.SRESEIYPOToMAR:2 — "A8° CFE 
; MODIFIERS 


3 bescniet ioe 


; ROCESS MODIFIER ITEM LIST ENTRY. VALIDATES ARGUMENTS AND 
3 ABORTS” ON ERRORS. SETS APPROPRIATE BITS IN THE UNIT STATE VECTOR 
MODIFIERS: 

TSTW =—- TTY$W_IL_LEN(R9D ; LENGTH MUST BE ZERO 

BNEQ §GOBAD™ 

Ist TTVst $L_IL_RETADR(R9) ; ALSO THE SECOND ADDRESS 

MOVL Tai JL. ADR(R9) : GET THE MODIFIERS 

BISL RO, TTYSL-1S_MODIF Peat) 


: SAVE THEM BUT DON T DESTROY 
: WHAT IS ALREADY THERE 
BICL  #TRMSM_TM_CVTLOW!- + CLEAR ALL VALID BITS 


TRMSM_TM_DSABLMBX ! - 


TR mak JUST! 
TRMSM_TM-AOTO_ TAB! - 
TRMSM_ 1H “NORECALL,- 


RO 

BNEQ GOB ; MAKE SURE THAT THE MBZ BITS ARE Z 

ASHL artysy ST_NOECHO- : Move function code an 
-10$V_ROECHO : modifiers. into bits 9-25 of 
TTYSL“IS nODLFycR1) .RO ; a regist 

BICL #*C<TTYSA_ST_NOECHO!= : Clear alt “bits except NOECHO 
TTYSM.ST_NOFCIR: ~ ; NOFLTR, and 
TTYSM~ST"ESCAPE | - : ESCAP 
TTYSM_ST_REFRSH>,RO : hag ba if yey & 

BISL  RO,R8 Ser HE NECESSARY BITS 

BBC #TRMSV_TM_NOEDIT, TTYSL_ 18 _MODIFY(R11),10$; IF NOEDITING THEN MAKE IT 

BICL  &#TTYSM™ST“EDITING,R8 ~ ; 

10$: BRW ITEMLOOP ; AND GO BACK TO THE ITEM LIST LOOP 


H 2 
TTYFDT - Terminal driver function decision rout 16-SEP-1984 14:3 AX/VMS Macro V04-00 Page 30 
youeo1 TTYSFDTITEMREAD - ITEM LIST SPECIFYED ON /7-S set 96:18 28 YT TORVR. SREITTYFDT MAR:2 ° 2, 

F4 1339 ; 4+ 
F4 } 4 :PICSTRNG 
F4 4 
FS 134 : + DESCRIPTION: 
FE 1343 ; VALIDATE TH 43 Lenere AND FRORESS OF THE PICTURE STRING AND INCREASE 
2 ! te ; THE BUFFER SIZE TO ACCOMIDATE IT 
Te 46 PICSTRNG: 

01 04 AB ODI F4 134 CMPL TTYSL_IS_EDITMODE(R11) ,@TRMSK_EM_RDVERIFY; ARE WE A READ VERIFY READ 

3 is FB 1 rt: BNEQ GOBAD™ 3; NO THER ERROR OUT 
50 04 A FA 134 OVL TTYSL_IL_ADR(RY) ,R 3 pd THE Suche” OF THE PROMPT 
51 § FE 1 9 MOVZWL STyswatt. LEN(R9).R 3 AND THE 
1 EQL gs ; NO” PROMP tt DO NOTHING 
28 AB 50 7D 7 1 § MOVQ RO, TTYSL_IS race 3; SAVE THE PROMPT LENGTH AND ADDRESS 
707 1353 ASSUME TTYSL_IS_PiC+4 EO TTYSL tS Pic EN 
53 68 dO 707 +1354 MOVL TTY$L_IS_ACMODETR1T),R3 ; SETUP OUR ACCESS MODE 
veoened 16 O70A 1355 JSB G EXE SPROBER 3; CHECK THE ACCESS ON THE BUFFER 
0 8 5S 7 9 1 2 BLBS RO,10$ 3; NO ER ll iy EN CONTINUE 
FED 1 71 135 BRwW ITMREADERR 3; ELSE ERROR OU 
57 2C AB 50 716 1358 198: ADDL TTY$SL_IS_PICLEN(R11),R7 ; ADD INT ne LENGTH 
FC26 1 71A 1359 208: BRW ITEMLOOP™ 3; CONTINUE ON NORMALY 
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ALIDAT E THE Masta ADDRESS AND LENGTH THEN SETUP THE NECESSARY STATE 


: AND we Suet’ OF THE PROMPT 


LEN 
PROMPT THEN DO NOTHIN 
SAVE THE PROMPT LENGTH AND ADDRESS 


; THE purrens LENGTH 

; P ACCESS MODE 

ACCESS ON THE BUFFER 
ONT INUE 


crc 


o 


> 
S 
mm 
oz 
omoo 
<<<coc< 
a at 


WWIII PORNO 


OOVU FNM > POs SC VCVVTVTVTCCTCTO —oa& 


READ BIT 
; MAKE SURE THE PROMPT IS ECHO 
HANDLE FALLBACK 


t NG 
gi 5 ine e DIRECTION 


"MOOG" Boo Gitmo 


WMOMOoOwN—OOo “S--wWwo 


; SAVE THE CAL 
: RESTORE A ity bog AND ‘LENGTH 


; t CALCULATE THe ADDITIONA 
; CHARACER COUNT OF FALLBACK 
eTTYSL_IS_PRMLEN(R11) ; > .t THE COUNT 
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TTYFDT - Terminal driver function decision rout 16-SEP-1984 02:14:3 AX/VMS Macro V04-00 Page 32 
youeb0t TTYSFDTITEMREAD = ITEM LIST SPECIFYED ON - iets 1 96:18:22 YT TORVR. eREITTYED T.MAR;2 . i) 
76F 1395 ;4+4 
He 1S ew 
76F 1 + DESCRIPTION: 
76F 1 ; SETUP TERMINATOR MASK. AND VALIDATE IT. 
76F 1400 ; THE TERMINATOR MASK SHORT FORM IS SPECIFYED BY SETTING THE LENGTH 
76F 1401 ; TO ZERO AND THE BIT MASK GOES IN ADR. THE LONG FORM LENGTH GOES 
76F 14 ; ; IN LENGTH AND THE ADDRESS IS PLACED IN ADR. 
eee i282 tERM: 
50 04 a9 00 rer 14 ¢ "MOVE TTYSL_IL_ADR(R9) .RO : GET THE TERMINATOR ADDRESS 
51 9 a 773 «(14 : MOVZWL TTYSWTIL“LEN(R9)R ; AND THE LENGTH 
B 776 14 BNEQ 108 + SHORT FORM NO THEN HANDLE LONG FORM 
44 AB 04 «9A «(077 1408 MOVZBL #4,TTYSL_IS_TERMLEN(R11); SHORT FORM LENGTH 
40 AB 04 AQ DE 770 14 MOVAL TTVSLLILZADR(R9) , TTVSL_1S_TERM(RI1) AND THE ADDRESS OF THE MASK 
ae , 1 1410 BRB 0$ 
40 AB 50 7D 07 ; 1418 10$ MO RO,TTYSL_IS_TERM(R11) _; SAVE THE TERMINATOR MASK AND LENGTH 
787 1413 ASSUME TTYSL_IS_TERM+4 EQ TTYSL_IS TERMLEN 
53 68 00 0787 1414 MOV TTYSL_IS_ACMODE(R113,R3 ; GET THE ACCESS MODE 
00000000" GF 16 , A 1415 JB. GEXESPROBER ; AND PROBE THE TERMINATOR MASK 
FESO 5 798 1447 BR ITMREADERR ; NO GOOD THENB TELL HIM SO 
57 20 co 796 1419 20S: ADDL #32,R7 : 16 BYTES FOR TERMINATOR MASK 
58 01000000 8F (8 079 1637 BISL  #TTYSM_ST_TERMNORM,RB~ : NON" STANDARD TERMINATOR 
7A0 1421 ; MASK THEN LET THE TERMINATORS THRU 
FBAO 31 O7A0 1422 30$: BRW ITEMLOOP ; IF OK THEN GO ON TO THE NEXT ONE 


2 
IPYED°ON ‘9=SEP=1984 VPisorae ETTOKUR.eREITTYEOT MaR:2 29° (FP, 


VALIDATES ARGUMENTS, SAVES TIMEOUT VALUE AND SETS TIMED FUNCTION 


PS ee ee ee ee ee) 


FIYSHAILLENCR) ; LENGTH MUST BE ZERO 
TTYSL_IL_RETADR(R9) ; ALSO THE SECOND ADDRESS 


os 
TY ns IL_ADR(RY) gi Tyee IS TIMEOUT(R11); GET THE TIMEOUT VALUE 
wien a iA. TIMED, TTYSL -TS_MODIFY(R11),10$; SET THE TIMEOUT MODIFIER 


STERNCER 


VayF Rr rmi i -SEP- 214: 
04-001 sr¥beplanhet asafanettan fesdeton faut “PSERcTREE QB:T4:R2 YARNS aero, oKcog,, | Page 


ree tees -SBTTL TTYSFOTWRITE = Function decision routine for terminal writes 
7BC 1445 34+ 
BC 1444 ; TTYSFDOTWRITE = FUNCTION DECISION ROUTINE FOR TERMINAL WRITE FUNCTIONS 
BC 1446 ; FUNCTIONAL DESCRIPTION: 
BC 1343 ; THIS ROUTINE IS THE FUNCTION DECISION ROUTINE FOR TERMINAL WRITE FUNCTIONS. 
pet HH : THE Q10 PARAMETERS FOR TERMINAL WRITES ARE: 
7BC 1452 : P1 = ADDRESS OF THE BUFFER 
7BC (14 : 3 ¢ = SIZE OF THE BUFFER 
7BC 1434 ; P3 = UNUSED 
BC 1499 3 P4 = CARRIAGE CONTROL SPECIFIER (SEE EXESCARRIAGE) 
7BC 1289 ; THE FUNCTION PARAMETERS ARE VALIDATED AND IF CORRECT, a write packet 
7BC 1928 3; that points to the IRP is sent to the terminal driver's write start 
7BC 1459 ; I/0 routine (ALTSTART in the DDT). 

gree ta? 
7BC 1468 : IRP$W_BOFF CONTAINS THE QUOTA FOR THIS 1/0 
7BC 1463; IRP$W"BCNT CONTAINS THE TRANSFER COUN 
7a 1466 ; IRP$W-FUNC IS SET FOR A FAST CASE ON FUNCTION TYPE 
7BC 1466 ; FOR 10$_WRITEPBLK OR IOSM_NOFORMAT, TTYSV_ST_WRTALL IS SET TO PREVENT 
M4! ts > FORMATTING OF THE DATA. 
7BC 1469 : If I1O$_REFRESH is specified, this routine sets TTYS$V_ST_REFRSH 
ay! ony 3 to refresh a delayed read when the write completes. 
BC 1478 : INPUTS: 

O7BC 1474 : R3 = 1/0 PACKET 

SRE rg | AB S GER OF Phocess 

é = 
7BC 1477: R6 = ASSIGNED 
7BC 1478 ; R7 = FUNCTION CODE 
BC 1479 : AP = ADDRESS OF FIRST USER Q10 PARAMETER 
BC 1481 + OUTPUTS: 
7BC 14 ‘ : F THE 1/0 IS IN ERROR THEN IT IS COMPLETED BY "‘EXESABORTIO’’. 
7BC 1484 ; if the 1/0 is_valid, then the address of the buffered block is 
at: 1? 5 3 codes nto R3, and the block queued to EXESALTQUEPKT. 
7BC 14 6 + COMPLETION CODES: 
7BC (14 § : SS$_ACCVIO = ACCESS VIOLATION ON BUFFER ( FROM "EXESWRTCHK”’ ) 
7BC 14 9 ; SSS"INSFMEM = INSUFFICIENT MEMORY FOR REQUEST 
ret 1438 3 SS$"EXQUOTA = BUFFERED 1/0 QUOTA EXCEEDED 
7BC 1493 ° 
7BC 1494 TTYSFDTWRITE:: ; 
56 ¢ DO O7BC 1495 MOVL RS. 3 GET USER BUFFER VIRTUAL ADDRESS 
3c AS) D4) sOO7BF 1496 CLRL RP rae th ON(R3) ASSUME NO CARRIAGE CONTROL SPECIFIER 
0B «57 «20060~—CC00Ssi«iEDSC#OO72-—s«a149 CMPZV - #IRPSO_ rCObE MIRPSS _FcODE,R »#10$_WRITEPBLK; WRITE OCHYSICAL BLOCK? 
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M 2 
river function decision rout 16-SEP-1984 02:14:3 AX/VMS Macro Vv04-00 P 5 TY 
- Function yd og Ba Foun ine -$ oat} 96:18:28 YT TORVR. SREITTYFDT MAR:2 aad Fb) vO 
BEQL 108 ; IF EQL THEN YES 
MOVL P4(AP),IRP$B_CARCON(R3) : GET CARRIAGE CONTROL SPECIFIER 
JSB G*EXESCARRIAGE : CONVERT THE CARRIAGE CONTROL 
10$:  MOVZBL IRPS$B_CARCON(R3) ,RB : CALC NUMBER OF EXTRA PLACES 
WOVZBL Th mets beni + NEEDED FOR CONTROL 
MOVL R6.R + SET UP FOR WRITE CHECK CALL 
MOVZWL P2CAP),R7 : GET TRANSFER SIZE 
MOVL ——R7,R1 + COPY TRANSFER SIZE 
BEQL —12$ ; SKIP CHECK IF ZERO 
JSB G*EXESWRITECHK : CHECK BUFFER ACCESS 
: INIT STATE FIELD 
fa ; NO RETURN MEANS NO ACCESS 
" CLRQ. ss RP$Q_TT_STATE(R3) ; INIT STATE REGION 
MOVZWL &#<TTYSM_ST_WRITE>,- 
IRP$Q_TT_STATE(R3) ; INIT WRITE FUNCTION 


SET WRITE PASSALL STATE FOR WRTPASSALL 


BBS #10$V_NOFORMAT, IRP$W_FUNC(R3),15$; BR IF NO FORMAT SPECIFIED 
CMPZV  #IRPSU_FCODE ,#IRPSS_FCODE, IRP$wW_FUNC(R3) ,#10$ WRITEPBLK; PASSALL WRI 
BNEQ 25$ 3 No paSsall, branch forward. 
15$: 
BBSS #TTY$V_ST_WRTALL,- 3; Set no format mode for 
IRP$Q_TT_STATE+4(R3),17 : write. 
17$: BBS #TT2$0_FALLBACK ,UCB$L_DEVDEPND2(R5),25$: NOT DOING FALLBACK THEN DON 
20$: PUSHR #*M<R3,R4,R5> : SAVE SOME REGISTERS 
MOVAB TTYSL_WB_BATA+4(R8)CR1],R1; ADD HEADER TO REQUEST AND CARRIAGE CONTR 


CHECK BUFFERED I/0 QUOTA 


JSB G*EXESBUFFRQUOTA 3; CHECK QUOTA 
BLBS Fe 30 3; Branch forward on success. 
BkwW 105$ ; Otherwise, branch to error. 
25$: BRW 200$ : jump to the fallback Logic 
; Allocate the buffer. 
30$: 
JSB SEER SALLOCOUF 3; Allocate buffered 1/0 block. 
BLBS RO,40$ ; Branch forward on success. 
BRW 105$ 3; Otherwise, branch to error 
40$: 
3 exit. 
MOVL (SP) ,R3 ; RESTORE PACKET ADDRESS q 
MOVL  R2,1RPSL_SVAPTE(R3) > SAVE BLOCK ADDRESS IN PACKE’ 
ADOW R8, IRP$W-BCNT(R3) 3; ADJUST TRANSFER SIZE FOR CARRIAGE CONTROL 


a a a at tk at tk at ot tt ot tt Ss Ss Ss oss M 
SN ah ah ehh eh db dh dh dich db ehhh hed bh bedhead bedded bd thd h sh shah us esl ealesleal walealealesleaiesie eww Uwe ww oe 


MAINE BREE EELS SWAIN WWIII ROPONIPUPOPOPUPIND 2 OOOO OOOO OOOO 


PW 2 9 OD NA WE WIN 2 OOD NAME WIN OS OO NAMN EWN 2 O ODA NEW OUD NAME WOO 


+ ADJUST QUOTA 


TIVE = Terminal driver function de ioten rout 16-SEP-1984 02:14:32 VAX/VMS Macro Vv04-00 TT 
but bo1 TTYSFDTWRITE = Function Ad fon on aut met 96: deta YT TORVR. SREITTYEDT MARS2 rage i, vo 
58 080 C4 0 3€ 1555 MOV PCBSL_JIB(R4) ,R8B ; GET JIB ADDRESS 
gt 1 2 “3 1 § MOV OWL pee Rie 3; CONVERT COUNT TO LONGWORD 
¢° AS 1 C 4 1 SUBL Ri, We L_BYTCNT(R8) ; ADJUST BUFFERED 1/0 QUOTA 
A 1 8 rh } 8 MOVW R1,IRPSW “BOF F (R3) 3; SAVE BLOCK SIZE AS QUOTA 
4— 1 ; 
iE \ 6? : MARK PACKET AS TERMINAL 1/0 
57 4 01 4E 1 8 : CMPL #4,R7 ; No priority boost for programs 
6 H 2 1564 BG that do gael) 
2A A3 0200 8F A 1565 BISW #IRPSM_TERMIO, IRP$W_ s1s(k3) SET F LAG FOR GREATER PRIORITY 
3 : 45$: : INCREMENTS UPON COMPLETION 
59 1568 ; 
22 i : SET UP THE BLOCK 
30 9A 0859 1571 ° MOVZBL #DYNSC_TwP,- : t block . 
OA Ae 3B 157 TTY$B_0B_TYPE(R2) enOOre TOES TINH 
24 A2_ 5 dO 5D 157 MOVL R3,TTY$L_WB_IRP(R2) ; Insert IRP address. 
30 A 9E 61 1574 MOVAB rivet -WB wT ie ; insert start of data address 
iC A 64 1575 TTv$ 4 HB T(R2) 3 “next character'’ field. 
52 3 co rt: 1376 . ADOL #TTY$C _W6 _DATA,R2 3 POINT TO DATA 
a8s9 13%6 : INSERT INITIAL CARRIAGE CONTROL 
58 3c A3 9E bBep 1580 : MOVAB {2000 CARCONIRS) AB 3 INSERT THE CHARACTERS 
70~=—6110 Ober 1 1 BSBB 10$ 3 
baer 15 ; ; CHECK FOR UPPERCASE AND FALLBACK 
9 of 13 : ; DON'T WORRIE ABOUT THEM IF WE ARE IN WRITEALL MODE 
OF EO 6 of 1 6 : BBS #TT2$V_FALLBACK 
14 4B A 1 35 Sts BEVDEPND2{RS) 47$ ; NOT DOING FALLBACK THEN DON'T WORR 
EO bere 1588 BBS TyY$7_S ALL : If no format mode 
12 44 A3 a % ue 1 ; one 1nPs a IstatesstR3), 50$ 3 no translate. 
OD 44 A 7B 1591 uUCcB 343 “DEVDEPEND(RS), 50$ ; CHECK FOR PASSALL OR PASTHRU 
lg FO 7 1336 BBS #TT PASTHRU 
08 48 A 159 UCBs “BEVDEPND3(RS) ,50$ ; 
07 ~«2+E0 1594 BBS #TTSV_LOWER 3 CHECK IF LOWER CASE ALLOWED 
03 44 A5 1595 UCBSL- ~DEVDEPEND (RS) ,50$ 
006D =—i331 ; ! 3g 4 47$: BRW 
8 i : COPY USER DATA TO BUFFER 
62 66 57 28 1600 $0$: | MOVC3 R7.(R6),(R2) : MOVE THE DAT 
52 53 p0 F 18 1 : MOVL R3,R2 COPY CURRENT AEND OF DATA 
2 12 ; THE USER DATA IS COPIED -- ADD TRAILING CARRIAGE RETURN IF NECESS. 
38 92 1605 &0$: POPR #*M<R3,R ; RESTORE REGISTERS 
58 (3E A F 94 1 6 MOVAB TRPSB_ eReetive2(R3). RB; 
45 1 ae ' BSBB 3; INSERT CHARACTERS 
9A 1 3 
9A 1 ; If the write function specified IO$_REFRESH, set the appropriate bit 
9A 1611 ; position for the UCB state b’ts. 
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B 3 
ver function oy Bip = rout 1g~ser 


Function dec n rout 
95$: 
BBC #1O$V_REFRESH 
IRPSW_FUNC(R3S 
BBSS #TTYSO_ST_REF 
IRP$Q_TT_STAT 


: COMPLETE THE WRITE OPERATION 
{00$: MOVL  IRPS$L SVAPTE CR 
MO L_WB_EN 


BBC #TTSV_HALF DU 


R1,R3 
JSB G*EXESALTQUEPKT 
JMP G*EXESQIORETURN 


; ERROR IN PROCESSING 


105$: POPR #*M<R3,R4,R5> 


JMP G*EXESABORTIO 


; SUBROUTINE TO INSERT PRE/SUF CARRIAGE 


E 130$ 
MOVB 1(RB),(R2)+ 
BNEQ 1308 
MOVB #TTYS$C_CR,-1(R2) 
NCW IRPS$W_BCNT 
120$: MOVB  #TTY$C_LF,(R2) 
SOBGTR RO,12 
130$: RSB 


: TRANSLATE TO UPPERCASE 
150$: CLRL  R8 
att 
oR 
RO_R7_R3 
BSBu BOVE. TRANSLATE 
60$ 


P, band 
SL_DEVDEPEND(RS), - 
191s: JMP G*EXESQIODRVPKT 
102$: 


$V_LOWER,- : 
UCBs “DEVDEPEND (RS) ,155$ 
: CALCULATE THE NEW STRING LENGTH 


Se 


eck for REFRESH bit. 
REFRESH is not specified, 
t branch forward. 

e 


s 
herwise, set the refresh 


3 bit for the state Longword. 


; GET BL Ock ADDRESS 


T ADDRESS OF DATA END 


: INSE 
P$V_FCODE ,#MIRPSS_F CODE, IRP$W_FUNC(R3); 
; Move the character count 
; into the write packet. 
; Test for disconnected LUCB 
; Always gue 1/2 duplex if so 
; branch if full duplex 
; if half duplex, call normal 
; biySecert ie entry pgtns 


/addr of write I 


; Set up write block address. 
; Queue packet to driver's write 
; STARTIO routine. 
; Return to requesting process. 


: ABORT 

CONTROL 

GET NUMBER OF CHARACTERS 
Q N NONE 


; RESTORE REGISTERS 
THE 1/0 


IF NEQ THEN DONE « 
NSERT CARRIAGE RETURN TO START 
Weoeoer eee COUNT FOR CR 


CHECK IF LOWER CASE ALLOWED 


: Figure out how many characters will be added to this write 


bbe 19:56:26 EPOAVR. SRESTIVEDTCR 
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TTYFDT rminal driver function de (olga rout 16-SEP-1984 4:3 cro V04-00 Pp TT) 
youe00t TTVSEDTORITE. Fone etes aectetas on aut TSEPISR2 99:28:22 PAASHMS Bacco vOR~OO 2 Page 78, vou 
9 f ] ; for fallback presentation 
¢ 1 : 
10 48 AS OE E1 1672 200$: BBC #TT2$ ~FALLBACK -UCBSL. DEVDEPND2(R5),215$; NOT DOING FALLBACK | THEN DO 
F 6BB 4 ! 4 PUSHR #*M<RO[RI,R ; seve the registers destroyed by t 
50 7 vo 0913 1 oe MOVL R7 »RO : SETUP THE LENGTH 
1 56 p 91 1678 MOVL 6 : AND THE ADDRESS 
044A 919 167 BSBW ADBFALL + ADD IN THE FALLBACK COUNT 
oF BA 091C 1678 POPR #*M<RO.R1,R2,R3> : RESTORE THE REGISTERS 
51 59 £0 git 167 ADDL 9,R1 : AND GET THE EXTRA SPACE 
FEED 31 09 16 0 215$: BRW 20$ 
924 1 
924 1682 


TTYFDT - Terminal driver fun ction totes lout 16-SEP-1984 02:14:32 YAX/VMS Macro V04-00 Pp 9 TT’ 
04-001 TTVSFDISEIM c+ FUNCTION DECISION ROUTINE “SaSEPaTone Soiseser EAMONN Bacse VOR=OO 2 Page 79, vo4 
3 4 4 is .SBTTL TTYSFDTSETM -- FUNCTION DECISION ROUTINE FOR TERMINAL SET MODE 
? 4 : TTYSFDTSETM = FUNCTION DECISION ROUTINE FOR TERMINAL SET MODE FUNCTIONS 
; 4 8 3 FUNCTIONAL DESCRIPTION: 
924 1690 ; THIS ROUTINE IS THE FUNCTION DECISION ROUTINE FOR TERMINAL SET MODE FUNCTIONS. 
3 4 3 ; THERE ARE TWO BASIC FUNCTIONS == SET UP FOR CONTROL C AND SET MODE. 
3 4 38 i THE FUNCTION CODE IS SET FOR A FAST CASE ON TYPE 
3 4 9° + INPUTS: 
924 1899 : R3 = 1/0 PACKET ADDRESS 
924 1698 : R4 = PCB ADDRESS OF CURRENT PROCESS 
924 1699 : RS = UCB ADDRESS 
924 1700; R6 = CCB ADDRESS FOR ASSIGNED UNIT 
09 4 7 13 AP = ADDRESS OF ARGUMENT LIST vr USER PARAMETERS 
09 4 7 § : OUTPUTS: 
03 4 7 5: THE FUNCTION IS COMPLETED HERE BY ‘‘EXESFINISHIO". 
09 4 7 ; : IMPLICIT OUTPUTS: 
09 4 1709 : R3,R5 ARE PRESERVED. 
$9 4 1711 TTYSFDTSETM:: 
20 A306 «O00 02 FO 0924 171@ INSV. #TTYSC_FC_SETM, #IRPSV_FCODE.#IRPSS FCODE, IRP$W_FUNC(R3); 
44 03 48 aS D0 09 A 1713 ROVL UCBs SOEVBEPNDE RS), IRP$Q_TT_STATE4(R3) sINIT DEFAULT 
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ss. 
eS AR. on decision rout 1 
UNCTION DECISION ROUTINE 
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FUNCTIONAL DESCRIPTION: 


THERE ARE TWO BASIC FUNCTIONS == SET 


INPUTS: 
R3 = 1/0 PACKET ADDRESS 
R4 = PCB ADDRESS OF CUR 
R5 = UCB ADDRESS 
R6 = CCB ADDRESS FOR ASSIGN 
AP = ADDRESS OF ARGUMEN 
OUTPUTS: 
THE FUNCTION IS COMPLETED H 
OR BY QUEUING IT TO FOR 
BY TTYSTRSTP. 


IMPLICIT OUTPUTS: 
R3,R5 ARE PRESERVED. 


tTYSFDTSETC:: 
INSV 


school | | 


_MAI 
mil Oates; RI 


PE=B,LIMIT=#6,<- 


RCOMNECT = 


NNNNMNNNYNONO - 


“$ aah 96: Ue: i erates Macro V04-00 


HERE BY ‘‘EXES 
FOLLOW ON PROCE 


Pose 38) vo 


TTDRVR.SRCIJTTYFDT.MAR; 2 v4 


«SBTTL TTYSFOTSETC = FUNCTION DECISION ROUTINE FOR TERMINAL SET CHARS 
TTYSFOTSETC = FUNCTION DECISION ROUTINE FOR TERMINAL SET CHARACTERISTICS FUNCTIONS 


THIS ROUTINE IS THE FUNCTION DECISION ROUTING FOR TERMINAL SET nee FUNCTIONS. 


FOR CONTROL Y AND SET MO 


RENT PROCESS 


ED UNIT 
T LIST AT USER PARAMETERS 


FINISHIO"’. 
SSING 


#TTYSC_FC_SETC,#IRPSV_F CODE ,#IRPSS_FCODE, IRP$W_FUNC(R3); 


; GET PRIMARY MODIFI 
; AND VECTOR TO SERV 


ER BIT 
ICE ROUTINE 


se 
TTYFDT = Veralnes driver function decision rout 19-3 E- 1 38e 96: 16:38 yearly Macro Vv04-00 Page 41 
v04-001 TTYSFDTSETC = FUNCTION DECISION ROUTINE 7=SEP=1984 17:56:44 CTTDRVR.SRCJTTYFDT.MAR;2 (21) 
9 1 ; 
; | 1? gir ; PROCESS SET MODE OR CHARACTERISTICS 
953 1764 SeT 
18F «630 «©0953 «1765 BSBW = GET_PARA ; GET USER PAR 
51 ; AS DE «(0956 «(17 : MOVAL PRPS. REDIACR3), R1 + GET ADDRESS OF STORED USER DATA 
Al 8 95a 17 TSTW (RI + PAGE WIDTH 0? 
08 950 17 : BLEQ BAD set + 0 IS BAD WIDTH 
02 al OFF BF Bi O95F 17 CMPW OO O#TTY CMAXPAGWID, 2(R1) : RESTRICT WIDTH 
09 «18 ? 3 7 p BGEQ  GOOD_SE ; FALL THROUGH IF > MAX 
50 14 36 3 7 17 § BAD_SET:MOVZWL #S$$_BADPARAM,RO : SET ERROR 
00000000 ' GF 3 A 773 JMP G*EXESABORTIO : RETURN ON ERROR 
970 1775 GOOD_SET: 
4¢ cA 8 AC BO 097 1276 MOVW P3(AP), IRPSW_TT_PRMPT(R3) TIME SPEED PARAMETER 
AC B80 0975 177 MOVW  P4(AP),IRPSWTT =PRNBT +2 (R3} OE AVE LLS 
gost AC DO O97A 1278 MOVL. PS(AP)-IRPS$L-VAC SAVE P Meaty 
51 009c C FFFFFFF 8F CB 0980 177 BICL3 w#C<*xOF>, IRPSL_ An tR3): ‘aie GET THE F AME SIZE 
14 13 O98A 1780 BEQL 38 : NOTHING T EN” QUEUE THE PACKET 
05 ¢2 098 1781 SUBL #5,R1 : Is TH 1S IN RAN 
5 19 O98F 17 ; BLSS _ BAD_SET + NO THEN BAD PARAMETER 
1 01 0991 17 CMPL sR ee ; MUST BE BETWEEN 8 AND 5 
14 0994 1784 BGTR BAD 5S + NOT TH ERE T HEN EXIT 
009¢ . o CA 0996 1785 BICL oaOre TRPSL YAL5(R3) : CLEAN THE OLD BITS 
009C ¢ C8 99 7 6 .. BISL  R1,1RP$L_VAC5(R3) : AND SET IN THE NEW ONES 
00000000'GF 17 3A0 17 : QPKT: JMP G*EXESQIODRVPKT ; QUEUE PACKET TO DRIVER 
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; STORE BROADCAST MASK IN LOGICAL UCB 
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PARAMS 
UCBSQ 
ONE 


BROCST: 
BSBW : 
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SET_ 


H 3 
TTYFDT driver function decision rout 16-SEP- AX/VMS v04-00 Pa 3 
04-001 TIVSFDTSE TCs FUNCTION DECISION MOUTIGE, SaSEpa1oR6 Sordoiae PAANMS Bacto VOK=00 ee 52) 


1799 ; 
1 6 ; Fill in the ucb fields and whatever else is needed to initiate 
! 3 @ connect to a vertual terminal 
1 e 
1804 SET_CONNECT: 
0099 3 1805 BSBW Tuce 
20 a3 —(06~—Ss«éO F 1 : INSV ‘ity C_FC_CONNECT, wIRPSY FCODE #IRPSS_FCODE, IRP$SW_FUNC(R3); 
FFE3 3 BRW UEUE PACKET FOR FOLLOW"ON PROCESSING 
1 
1 3 LOOK UP LUCB NAME IN IO DATA BASE 
; AND VALIDATE ACCESS TO IT FROM COMMAND CHANNEL 
1 1§ GET_LUCB: 
53D 1814 PUSHL R3 ; SAVE IRP ADDRESS 
00000000 ' GF 18 1815 JSB G*SCHSIOLOCKW : INTERLOCK IO DATA BASE 
O11D 3 1 18 BSBW GET PARAMS + PROBE BUFFER DESCRIPTOR 
00000000'GF 16 181 J$B G* IOCSSEARCHDEV ; GO FIND DEVICE UCB ADDRESS 
1 18 + IF SUCCESS Ri= TARGET UCB 
181 : R2 = DDB OF TARGET UCB 
1450 €8 p BLBS  R0,10$ + UCB FOUND? 
j ~ SERROR EXIT 
50 DD 1824 PUSHL RO ; SAVE ERROR STATUS 
00000000'GF 1 1825 JSB G*SCHS$IOUNLOCK : INTERLOCK 10, DATA Base 
BED 1 6 POPL R : RESTORE ERRO R STATUS 
ED 1 POPL R : RESTORE IRP 
00000000'GF 1 : son JMP G*EXESABORTIO + ERROR 
8 3¢ 1830 MOVZWL #SS$ $_ JVDEVNAM, RO ; ASSUME INVALID DEVICE 
00000900" oS : D1 1831 CMPL ss R2, : VERIFY TARGET LUCB ON DETACHED DD 
12 1 : NEQ 5 + NO, SO ABORT 
1 DSBINT ais. SYNCH + INTERLOCK WITH DRIVER FORK 
52 2C al 3C 1834 MOVZWL UCBSL~PID(R1) ,R2 : GET PID OF OWNER PROCESS OF LUCB 
50 00000000'GF 06 1835 MOVL  G*SCHSGL_PCBVEC,RO ; GET ADDRESS OF PCB A 
52. 6042. «OD 1 6 MOVL  (RO)CR2J—7R ; GET PCB ADDRESS OF (uce TOWNER 
00BC C4  O0BC D1 1 CMPL PCBSL_UIC(R2) .PCBSL_UIC(RA) + UIC MATCH (TARGET LUCB : COMMAND C 
. 7% 1 : BNEQ 1 : NO , PRIV ERROR 
50 OOAO CS D 1839 12$: MOVL UCBSL_TL_PHYUCB(RS) RO + GET ADDRESS OF PHYUCB OF COMMAND C 
5 (1 1840 BEQL + ERROR, CURRENTLY DETACHED 
00A0 a p i st UCBSL_ TL_PHYUCB(R1) : CHECK iP Cte Rent PHYUCB OF TARGET 
0084 co «51=«OD 184 MOVL  R1,UCBSL_PDT(R ; SAVE ADDRESS FARGET LUCB IN COMMAN 
0084 (1 50 »D 44 ROVE RO.UCBSL~ -poTiRy> ; SHOW CONNECT PENDING ON TARGET LUC 
00000000" GF 1 1 46 JSB G*SCHSIOUNLOCK : INTERLOCK 10 DATA BASE 
on 8 a 
1 rh 15$: 
1 ENBINT 
50 24 3¢ 1 MOVZ2WL #SS$_NOPRIV,RO 
sf a BRB rt 3 
1854 ENBINT 
50 0840 BF 3C 1855 MOVZWL #SS$_DEVALLOC,RO 
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TTYFDT nal driver function decision ro ut 16-SEP-1 4:3 AX/VMS Macro V04-00 Page 45 TT! 
v04-001 Trverpt sete = FUNCTION DECISION ROUTINE $- -5 sats 96: 48: if YT TORVR. SRETTTVEDT MARS2 ° (38) vO 
AST 1 2 
ve ' 3 ENABLE CONTROL C/Y 
AS? 1 é SET_CTRLC: 
57 0094 c3 9 AS? 1 MOVAB UCBSL_TL_CTRLC(R5),R7 ; ASSUME CONTROL C 
17 OA4C 1 CTRLAST 
AGE 1864 SET_CTRLY: 
57 0090 ¢5 9E ad 5 cee ait MOVAB UCBSL_TL_CTRLY(RS),R7 ; ADDRESS LIST HEAD 
52 ps Oa53 1 $ CLRL = RR ; NULL MASK 
09900000" GF if A551 J$B GSCOMSSETATTNAST_ ; ENTER SET UP CODE 
1A 20 A 7 €1 Oa5B 1 $ BBC #10$V_CTRLY a): ; ROLF NOT ENABLING CTRL-Y¥ 
A601 1RPSHE FUNC(R ) 108 ; RET 
03 €5 OA60 187 BBCC sucesd NGUP, + CHECK FOR LOST HANGUP NOTIFICATION 
08 A Abe 1 r uCesu W “BEVSTS<R 1108 
09 A65 187 MOVL ; DELIVER Lost HANGUP AST 
4 4 p A6B 1874 MOVL (nd) Ro : GET AST BLOCK ADDRESS 
cc F 3C OA6B 1875 MOVIWL #SS$_HANGUP,- : SIGNAL SPECIAL HANGUP STATUS 
AO AGF 187 ACBSC_KAST+4(RO) 
00000005" GF 16 OA71 187 J$B G*COMSDELATTNAST : AND FIRE THE AST 
50 01 3C Ag? , MOVZWL #SS$_NORMAL,RO 
A7A 1880 108 
00000000'GF 17 OA7A 1881 JMP G*EXESF INISHIOC 


Tyrer - Terminal driver function gio} a a. t 16-SEP-1984 14:3 AX/VMS Macro V04-00 Page TT! 
bu. b01 TTYSFDTSETC © FUNCTION DECISION ROUTIAE® “Seeepeiope Soiseiee FAOKUS Bacco VOK=OO oe 38) vol 
A 1883 
A ; ; PROCESS CONNECT/DISCONNECT FUNCTIONS 
Ag0 1 : SET_DISCONNECT: 
00000000'EF 28 A5 D1 OABD 1 CMPL ycBsi_ DDB(RS),.VTSDDB =; 1S THIS TERMINAL VIRTUAL TERMINAL 
12 OABB 1 BNEQU NO THEN DON'T LET THE USER OGOUT 
20 a3 (06~=— 00 FO OABA 1 INSV aTTYSC _FC_DISCON, MIRPSV_ Fone #IRP 3 FCODE, IRP$W_FUNC(R 
FFOD 31 ay ? BRW QPK QUEUE PACKET FOR FOLLO@ ON PROCESSING 
59 D144 8F 3¢ A931 36 10S: WOVZWL #SS$ JVDEVNAM RO ; INVALID DEVICE NAME 
0000000'GF 17 OA9B 189 G*EXESABORTIO + ABORT THE COMMAND 
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00000000 ' GF 
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; LOOPBACK/CONTROL DIAGNOSTIC FUNCTIONS 
SET_MAINT: 
BBC 


ER 


—— 


SDowwom@Dom n> 
—MOvMmuoQoo°oo mae 
a tt 


wowowowowowowowovownd 
3 3 tO 


ODEM, - ; IF SET MODEM DIAGNOSTIC FUNCTION 
R3), 128 ; THEN OK 

: GET USER PARAMETERS 
AINT #IRPSV.F CODE -#IRPSS_FCODE , [RPSW_FUNC (R3) ; 
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AX/VMS Mac 
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SEp-19be $:s6ia0 
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sion rout 1 
ROUTINE’ |S 
3; ENABLE OUT OF BAND MASK 


TTYFDT 
v04-001 


T HEAD ADDRESS 
RENT MASK ADDRESS 


DISABLE AST 


OUTBAND: 


SET. 


POADAAA SO 


i coe eel area sneak elk eet se oon 
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YVYVUVUVYUVYVUYA 
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- Terminal driver f unc tie cision rout "$73 P-1 3B 96: Ye: i yea lyes Oe v04-00 Page Ait 


CTHENCTION DECISION ROUTIN P=1 TTDRVR.SREITTYFDT MAR: 2 
JMP G*EXESF INISHIOC ; DONE 

SET CONTROLLING PROCESS PID (FOR *C,*Y,008 PURPOSES) 

1933 SET_PID: 

1934 MOVL  PCBSL_PID(R4) ,UCBSL_TL_CTLPID(RS) 

1935 BRB SET_DONE 
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dD 4 
TTYFOT - Term driver function decision rout 1 73 AX/VMS Macro V04-00 Page 
yOu~001 TTYSFD = FUNCTION DECISION ROUTINE $78 5 sets 7 96: 43: i LT TORVR. SREITTYEDT MAR:2 ° (38) 

7 
; PROBE USER BUFFER AND GET PARAMETERS 
194 
1942 GET_PARAMS: 

51 6¢ p0 194 ROVL P1(AP).R1 ; GET ADDRESS OF BUFFER 

0 ¢ 1944 MOVZWL ass ACCVIO. ,RO ; ASSUME ACCESS VIOLATION 
1945 IFNORD #8, (R1 ; BR IF NO ACCESS TO QUADWORD BUFFER 

As. 61—Oo=D 1946 MOVL = (RI) IRBs MEDIA + SAVE NEW DATA 

3° al D 194 MOVL = &(R1§ 1RPSO, 0 1 TagTATECRS): $A SAVE 1ST DEVDEPEND WORD 
obs B 1948 MOVW «#8, IRP WBCRT ; INDICATE DEFAULT SIZE 
04 Ae D 194 CMPL  P2CAP),# ; CHECK FOR SECOND DEVDEPEND ARGUMENT 
1F 1950 BLSSU 5 NON 
1951 IFNORD #12,(R1) CHECK IF ADDRESSABLE 
44 43 08 Al 00 1956 OVL CRI), 1Rbso° TT _state+acrd 
195 ; GET 2ND DEVDEPEND WORD 
32 a3 OC 80 0 1954 rs mov #12, IRP$W_BCNT(R3) ; LENGTH OF ADDITIONAL DATA 
00000000'GF 17 0814 1956 10$: JMP G*EXESABORTIO ; RETURN ON ERROR 
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~SBTTL MODE OR CHARACTERISTICS 


+e 
Viv er ets NSEM = SENSE MODE 
TTYSFOTSENSEC = SENSE CHARACTERISTICS 


FUNCTIONAL DESCRIPTION: 
THIS ROUTINE PASSES THE 
THE PERMANENT CHARACTERI 
; THE BUFFER RETURNED IS A 


INPUTS: 


ze 
oO 
o- 
me 
=e 
ES 
me 
z7-7 
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ne 


DOHGGSOSO SS OHO SO OSOSOSO SDSS OOS DOS w= 


a OD 
a et ke at es tk a ss a os st 2s a 


&—NWBOuv1wnmnor>>>>>>>>>>>r>>>>>>>>>>r>>>>>>>??>? FF 8 


CURRENT CHARACTERISTICS FOR SENSEMODE AND 
STICS FOR SETCHAR, 
QUADWORD 


OWOOODOOOOOOOOOO 


WO OONOUS LM" O0 -1c 


OUTPUTS: 


CONTROL IS PASSED TO EXESABORTIO ON FAILURE 
OR COMPLETED VIA EXESFINISHIO 


; STATUS RETURNS: 


SS$_NORMAL = SUCCESSFULL 
SS$_ACCVIO = BUFFER NOT ACCESSIBLE 
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NONE WN 9 OONOAU EWN 9 ODO 
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‘oo 00 
TYSFDTSENSEM: : : SENSE MODE 
0159 39 BSBW = VERIF Y_SENSE : VERIFY USER STORAGE 
B BITW #<lOSM~TYPEAHDCNT!- : TEST FOR SPECIAL MODIFIERS 
10$M_RB_MODEM! IOSM_BRDCST>,- 
20 a3 40CO BF 9 RPSQ_FONC(R3) 
03 13° O€ BEQL 0$ : SKIP IF NOT 
01 31 OF BRW GET_SPECIAL : DO THEM 
61 40 A5 D0 O8 97 10$ MOVL  UCBSB_DEVCLASS(RS),(R1) ; BUILD CLASS,TYPE, AND BUFFER SIZE 
04 Al 44 AS p 38 MOVL OU BS DEVDEPEND(R55,4(R1S;RETURN 1ST CHARACTERISTICS LONGWORD 
30 91 Oe CAPE RO, #12 : SECOND CHARACTERISTICS REQUESTED? 
0 30 O€ ? BSBW sSs«G ET pct ; BUILD SPECIAL CHARACTERISTICS 
08 Al 48 AS c : BISL3 R2,0CBSL_DEVDEPND2(R5).8(R1);AND 2ND LONGWORD (IF REQUESTED) 
D4 OB3F 208: CLRL OR : INIT RETURN 
1 D4 BA 4 CLRL OR 
B4 5 DSBINT UCB$B_FIPL(RS) : INTERLOCK DISCONNECTS 
59  O0A0 C5 : B4A 6 MOVL CBSL_TL_PHYUCB(RS) .R9 : GET PUCB ADDRESS 
$ B4F BEQL > DISCONNECTED FROM CHARS 
50 F2.¢9 00 0851 MOVL j§§UCBSW_TT_SPEED-2(R9),RO ; RETURN SPEED 
1 F c9 DO 0850 MOVL UCBSB”TT"PARITY-2(R95,R1:RETURN PARITY INFO 
51 FF F CA OF 1 BICL #*XxFF000000,R1 : ZERO HIGH BYTE 
51 00F6 C9 B80 OF oe HOV UCB$B_TT_CRFILL(R9),R1 ; AND CR/LF FILL 
0097 31 «08 A BRW GET_EXIT1 ; EXIT RETURNING R1 
B6D 13 ; THIS ROUTINE PROCESSES SENSE CHARACTERISTICS FUNCTIONS aC 
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tion decision Feut 16-SEP-1984 4:3 Macro V04-00 Page 54 TTY 
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; SENSE CHAR 

VERIFY_SENSE ; VERIFY USER STORAGE 

a OSM TYPEAHDCNT !- TEST FOR SPECIAL 

m_RO MODER: 108M “BROCST>, = 

RPSOY FONC(R3) 
; SKIP IF NOT 

GET_SPECIAL + DO THEM 


oe hense R7,R8,R10,R11> 
UCBSB_FIPL(RS) 


SL-TL_PHYUCB(RS) ,R9 
prose TT _DETYPE-1(R9), RO; BUIL 


$_TERA,R6 


Geese TT_BECHAR(R) ,R7 ISTICS L 
,UCBSL~TT_DECHA1(R9),RB;AND 2ND LONGWORD (IF REQUESTE 


UCBSW_TT_DESPEE=2(R9) ,R1 
UCBSB” TT" pepatie (R9) RI 


#*xF F00000 


UCB$B_TT  DEERE.(R9D, R11 


R11 RI 
#°M<R6,R7,RB,R10,R11> 
GET_EXIT1 


#°M<R6,R7,RB,R10,R11> 
TTYSFDTSENSEM 


; BUILD SPECIAL CHARACTERISTICS 


: INTERLOCK DISCONNECTS 
: GET PUCB ADDRE 
: DISCONNECTED FROM CHARS 
D TYPE, AND BUFFER SIZE 
: BUILD D DEVICE CLASS 
‘RETURN 1ST CHARACTERIST ONGWORD 
; RETURN SPEED 
i RETURN PARITY INFO 
: “ZERO HIGH BYTE 
> AND CR/LF FILL 
; REL EASES INTERLOCK 
+ RETURN USER DATA 


; DID HE ASK FOR 2ND ? 
NO 


RETURN IOSB DATA 


RESTORE SCRATCH REGISTERS 
; EXIT RETURNING RO,R1 


; RELEASE INTERLOCK 
; RESTORE SCRATCH REGISTERS 
AND TREAT AS SENSE MODE 


TTY 
v04 


“001 


61 


ONS obF 


5 


D 
1 


nal driver function d 
7 CHAR service routine 


eng 


gcfston Pout 1f-s5P—198e 95:14:2 


tl SETMODE/CHAR service routines 


UCBSQ_TL_BRKTHRU(RS), (a1) 
GET_ERIT™ 


AX/VMS Mac 
TTDRVR. SRC 
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; RETURN BROADCAST MASK 
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voo~b01 SETRODE/CHAR service routines nn UT "PISED TSE PF :Seice EMGAUA.SResPreroToMaR;2 © 28° (28, 


/ 
; THIS ROUTINE BUILDS DCL PRIVATE CHARACTERISTICS 
GET_DCL: 
5 D cL RL R2 ; INIT wera ARGUMENT 
60 A ? ; azar BSL_AMB(RS) ; ANY ASSOCIATED MAILBOX? 
52 00000200 a f i $$ Bist #TT2$M_DCL_MAILBX,R2 > YES, SO BUILD CHARACTERISTIC 


I 4 


TTYFDT = Terminal driver function decision rout 16-SEP-1984 :14:3 AX/VMS Ma v04-00 P 57 
04-001 SETRODEVCHAR service cour ines, ee eet eee en lobe Soisacee FFTONUS Sacco vOK=00 ., «Page 37, 
FB 
F GET_EXIT: 
06 01 80 F MOVW —#SS$_NORMAL ,RO 
00000000 ' GF BF ot exiti” G*EXESF INISHIOC ; COMPLETE REQUEST I0SB WORD 0 
30 01 80 E84 4 -"" MOVW =o #SS$ NORMAL -RO 
00000000' GF ¢ 7 G*EXESF INISHIO ; COMPLETE REQUEST I10SB WORD 0,1 


TTYFDT Terminal driver function socteten feut 16-SEP-1984 AX/VMS Macro V04- Pa 58 
youeb1 SET MODE/C haf service routines mii ~}382 9: 4: if THORVR. REIT TVEDT Oo MAR; 2 - (46) 
COD 7 
: ; THIS ROUTINE BUILDS CONTROLLER TYPE AND RECEIVE MODEM SIGNALS 
COD GET_MODEM: 
9 GA ¢ MOVL UCBSL_CRB(R9) Re 3 get CRB poone ss 
BA C MOVE CRBSB-TT_TYPE(RO),R6 _ ; RETURN CRB TYPE 
57 01246 ¢C C1 MOVB UCBSB-TT“DS_RCV(R9) ,R7 3; RETURN Pg ee iy RECEIVE MODEM SIGNALS 
CIA 4 ENBINT 3; RELEASE INTERLOCK 
61 § 4 C1 5 MOVB RG. {Rl} 3; RETURN USER DATA 
02 Al C § MOVB R7,2(R1) 
OOCO B&F 4 C POPR #OR<RE R7> ; RESTORE SCRATCH DATA 
FFDO 31 OC28 2038 BRW GET_EXIT 
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TTYFDT = Terminal driver function decision rout 16-SEP-1984 02:14:3 AX/VMS Macro V04-00 Page 59 ef 
youebOt SETMODE/CHAR 1. routines $751 382 96:38 :3 YT TORVR. SREDTTY DT.MAR;2 ° (48) 
C28 
: 4 THIS ROUTINE PROCESSES MODIFIERS 
C28 e SPECIAL: 
of EO OC2B BBS #108v 8 ONLY REQUIRES LUCB 
B4 20 AS A ¢ IRP W “FUN an GET _bRocSt 
00c BB C PUSHR #*M<R SAVE SCRA 
C DSBINT UCB s8.f : INT ahs ibis ONNECTS TO PCUB 
59  OOA0 ; 9 C 38 MOVL ht L-TL PEATE (RS) , RY : ais PUCB 
C4 BEQL eC ecteD ye Naa ZERO) 
OD 20 A3 § . C4 BBS #10$V tani IRPSW_ rineta ),GET_TYPEA 
FFC C4 1 BRW GET_M MODE 
C4A 1 10$ ENBINT ; RELEASE INTERLOCK 
OOCO 8F RA C4D 19 POPR #*M<R6,R7> 
FFA? 31 0C51 2104 BRW GET_EX{T 
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THIS ROUTINE eulLe 


14:32 VAX/VMS Macro V04 ma Page 90 
(50) 


R OF CHARACTERS IN TYPEAHD 
IN THE BUFFER 


OCONIO- 
e@e 


AND RETURNS THE T 


$L_TT_TYPAHD(R9) ,RO 


TTY$W_TA_INAHD(RO) ,R6 
@TTYSC_TA_GET(RO),R7 
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RETURN USER DATA. 
RESTORE SCRATCH DATA 
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04-00 
FDT.MAR;2 


V 
TY 


4 
4 


SEP=1 
Ep 198 
THIS ROUTINE VERIFIES THAT THE USER BUFFER IS ACCESSABLE 
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; SET ERROR STATUS 


; ABORT THE IO 


G*EXESABORTIO 


MOVZWL #SS$_ACCVIO,RO 


JMP 
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SETMODE/CHAR service cour ines oreee lobe Soisesae FAANUS Macro, VOK—O0 oe $2, 


OCAS 2142 
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care - Ter 
bee b01 MOVE 


ufpiver function dec {asen tout 1 ~SEP-1984 03:14: 32 YAX/VMS Ma Macro V04-00 Page 3, TTY 


- TRANSLATE TO UPPERCASE “SEP=1 TTDRVR. SRC itty YFDT.MAR;2 
~SBTTL MOVE TRANSLATE = TRANSLATE TO UPPERCASE 


- 
aa 


MOVE TRANSLATE 


THIS ROUTINE MOVES AND TORS ATSS L wh ourrul oS FOR 
ee eeaTit hie ane TRANSLATES 8-BIT CHARACTERS TO 7-BIT BACK 
ne RESENTATION FOR TERMINALS THAT DO NOT UNDERSTAND THE °s BIT REPRESENTATIONS. 
No VTSS" ESCA 48 gee VENCES FOR ANSI, V 
REFRAINS FROM TRANSLATION OF ANY DATA 


152 TERMIN AND 
IN’ ESCAPE OR TONTROL SEQUENCES. 
INPUTS: 
R2 = DESTINATION ADDRESS 
RS = dest inet eee Length 
r5 = UCB 
Rg = SOURCE ORB DRESS 
R7 = LENGT 
R&B = LOW BIT SET MEANS DO LOWERCASEING 
OUTPUTS: 
R 


é = END +4 wae STRING +1 
R> = UCB ADDRESS 


RO = R4 DESTROYED 
MOVE_ TRANSLATE: 


SOOOCOCOOGOGOOOSOOOSOOSSOSOOO OOOO OOOOCOOOOOOOOOOOOOOOO 
>>>>r>r>rr>r>r>r>rrrrrr>rrrrrrrrrrrrrrr Fs 
PIP DP IPIPIPIPIPIPIPININIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIRAIPINININ —_- PA 


C909 0909 09 00 00 SI NINN NSN NSAP AAA AA AAA MIMI EEE IT 
BAL WN SO ODNA NE WIN 9 OD NAN EWI 9 OD NAME WP OOONAUNE 


a a a as a se a ss st tn a as 1 3 a st _ 


57 D5 TSTL =-R? : NULL STRING 
1 BEQL 308 : YES 
09 E8 BLBS R8,5$ : ARE WE DOING LOWER?? YES THEN DO FALLBACK 
5 bp CAA PUSHL : ELSE JUST DO FALLBACK 
0064 30 OCAC BSBW ss TTYSFALLBACK : CALL FALLBACK 
55 BED CAF POPL 5 + AND RESTORE THE UCB ADDRESS 
0 . 30$: RSB 
OF E1 OCB 5$: BBC #T1T2$V_FALLBACK 
OD 48 A CB ucest L BEVDEPNDZ(RSD TTYSUPPER; NO FALLBACK THEN ONLY UPPER CASE 
eC 8B CBB PUSHR ; SA AVE THE DESTROYED REGISTERS 
0056 CBA BSBW TIYSFACLBACE ; CALL FALLBACK 
26 BA O0CBD POPR #*M<R2,R ; THEN RETURN THE DATA 
57 DO OCBF MOVL R3.R7 ; UPDATE THE N LENGTH AND ADDRESS 
56 «652)—SCo=OséOCC2 MOVL  R2.R6 : TO TRANSLATE TO UPPER 


vO4~001 
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ver function gecteten rout 16-S e388 96:16:32 yer lyes Macro V04-00 


¢ 5 


ng to upper -SEP-1 
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-SBTTL TTYSUPPER = Translate a string to upper case 


$e 
TTYSUPPER = Upper case translation 
Description: 


Given an ingut string it will take all of the lower case characters 


in it and change 


bothered). 
Inputs: 
Re DESTINATION ADDRESS 
R UCB ADDRESS 
§ SOURCE ADDRESS 
LENGTH 


f 
Outputs: 

Re = END OF DESTINATION STRING +1 
R5 = UCB ADDRESS 


RO = R4 DESTROYED 


t to upper case (characters in escape sequences are not 


TYSUPPER: 
MOVZBL (R6)+,R3 : GET NEXT CHAR TO MOVE 
CHPB WeTTYSA_CCLISTCRS2,ATTYSK_ET ESCAPE; CHECK OUT ESCAPE SEQUENCES 
BBC #TTYSV_CH_LOWER,- : SKIP IF NOT LOWER CASE 
W*TTYSK TYPECR34,20$ 
os BICW *x20,R3 ; CONVERT TO UPPER CASE 
MOVB RS. (R2)+ 
~ SOBGTR R7,TTYSUPPER ; CONTINUE UNTIL DONE 
RSB 
40S: 
MOVB RB, (R2)+ : COPY ESCAPE 
DECL R : ADJUST COUNT 
BEQL 308 > QUIT IF DONE 
BBS #TT2$V_ANSICRT,- + CHECK FOR DEVICES WITH ANSI SEQUENCES 
UCB$L_BEVDEPND2(RS) ,45$ 
BBS #TT$v~ - 
UCBSL DE VDEPEND (RS) 45$ 
cCMPB Os #TT$ _OT5X,UCBSB_DEVTYPE(RS) 
BGTRU TTYSOPPER 
dss: 
PUSHL 1 > SAVE R1 
BSBW  =sESCINIT : INIT THE ESCAPE SEQUENCE RULES 
MOVZBL R1,R4 a 
i POPL = R1 > RESTORE R1 
MOVZBL (R6)+,R3 ; GET NEXT SEQUENCE CHARACTER 
BSBW YNfax : CHECK ESCAPE SEQUENCE SYNTAX 
BLEQ ; ENDED OK, OR FAILURE 
MOVB R {Rede 
SOBGTR R7.50 : CONTINUE TILL END 
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TTYSUPPER = Translate a string to upper 
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Tyr n deciette cout 1g-S SEP- 1986 03: Je: 32 YAX/vms. Macro V04-00 Page TT" 


Neto O TRANSLATE 8-B1 TTDRVR.SRCIJTTYFDT.MAR; 2 (56) vo4 

sn -SBTTL TTYSFALLBACK = ROUTINE TO TRANSLATE 8-BIT CHARACTERS TO 7-BIT 

; TTYSFALLBACK = SUBROUTINE THAT WILL MOVE A STRING AND INSERT FALLBACK REPRESENTATI 
DESCRIPTION: 

This routine will < fete an input buffer of any length and take a 


eight bit characters t and change them into their 7-bit fallback “presentation 
Th ; Tor 


s includes nserting characters multi-character expansions. 


- destination address 
= destination length 


; - ucb address 

: s = Source address 

; - Source Length 

: Outputs: 

; ‘ Re - End of destination string 
3 - RS Destroied 
t 


; MOVE FALLBACK TRANSLATED 


TYSFALLBACK: 
50 657 MOVL R7,RO ; load up the necessary registers 
1 § MOVL Rg Ry 
4 MOVL R 
5 2 3108 MOVL R2,R5 
00000000 ' FF FF 8F 61 20 MOVTUC RO,(R1),#255,aTTYSA_FALLTAB,R4,(R5); TRANSLATE WHAT WE CAN 
2 BVS 3208 3; IF WE CAN'T TRANSLATE IT yuen IT MUST BE LONG 
52 5 MOVL R5,R2 : at 1s CURRENT END OF DATA 
RSB ; RETU 
320$ 
53 4 MOVZBL (R1)+,R3 ; GET THE CHARACTER 
4 PUSHL 3; SAVE A REGISTER 
54  00000000'EF MOVL TTYSA PERS. oR4 ; GET TEH TABLE ADDRESS 
53 FF6A C443 MOVZBL -150(R4)CR3),R3 : +H THE OFFSET T HE STRING 
54 POPL 3 OUR SCRA REGISTER 
52  00000000'FF4 MOVZBL @TTYSA_EXPANCR3),R abe GET THE LENGTH OF THE SEQUENCE 
3 INCL Rs : MOVE BY THE COUNT 
85 00000000'FFS 330$: MOVB @TTYSA_EXPANCR3), “tS: ours IN THIS CHARACTER 
54 DECL RG 3; TAKE T THE CHARACTER SLOT 
1 BEQL 3108 
INCL ; MOVE OVER A CHARACTER 
EF SOBGTR Re ggee® 
FFB BRW 


: CALCULATE THE NUMBER OF CHARACTERS 
; THAT WILL BE OUTPUT IN FALLBACK 


hopF att: 
LRL sR LEAN OUT RO 
2 2108: SCANC RO,(R1),aTTYSA_ FALCT Vip e"x80, SCANN FOR FALLBACK CHARACTRS 


9 
80 8F  O0000000'FF 61 3 


UB int 
01 1 
0 

gt 

54 _ 0000 00 re go 

53 FFOA C4 A 

spay BERD 

52 00000000'FF4 

59 ; eG 

$f 
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TO TRANSLATE 8-B1 


BNEQ 
RSB 


w$EP=1986 19:56:46 ETTDRUR. SRESTTVEDTORAR;2 


2208 ; NOT DONE THEN COUNT THE EXPANSION 
RG ; SAVE A REGISTER 

Hayek XPT : gr THE FABLE ADDRESS 

TYSA, Rrra GET tHE Orrser TO TH a STRING 

R4 + RESTORE THE REGISTER 
@TTYSA_EXPANCR3J Ree 4 THE LENGTH OF THE SEQUENCE 
R TRACT 1 FROM THE LENGTH 

R ee ‘ UBDATE THE SCAN POINTER 

216$ ; AND CONTINUE COUNTING 


me fi 
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Psect synopsis -SEP-1984 


become eroesnmcccoad 


! Psect synopsis ! 


¢eeoeeeeecooeseeece 


PSECT name Allocation PSECT No. Attributes 

ABS . 0 0 ( ) ( 0.) NOPIC USR CON ABS LCL NOSHR 
$aBS$ ( *) ( 1.) NOPIC USR CON ABS LCL NOSHR 
$$$115_DRIVER p9B ( 3483.) ( 2.) NOPIC USR CON REL LCL NOSHR 


Pere eee em ew ee mem mee cmon + 


! Performance indicators ! 


Praseree rer ec mee moe mcenee$ 


Phase Page faults CPU Time Elapsed Time 
Initialization 33 :00: +96 0B: ; 
Command processing 11 :00:00. § 7:00:02. 
Pass 1 66 00:19. :01:04.6 
Symbol table sort g :00:03.04 :00:11.4 
Pass 40 :00:04. $ 3 :18. 
Symbol table output 1 :00:00.1 :00:00. 
Psect synopsis output :00: zt 0: ’ 
Cross-reference output :00:00. 0:00:00.00 
Assembler run totals 123 ~ 0:01:37.56 


{he yorking ns i tare was 4409 page 
bytes. (329 pages) of vir — memory were used to buffer the intermediate code. 
There were 150 pages of symbol table 4 Shee vcingses to hold 2706 non-local and 149 local symbols. 
2318 source at Ae were read in Pass 1, producin object records in Pass 2. 
pages of virtual memory were used to define & 7 macros. 


gc teey SO Ne + 


! Macro Library Statistics H 


Macro Library name Macros defined 
55$DUA SYS.OBJJLIB.MLB;1 6 
Stitt ESYSi Te 3STARLET. MLB;2 ‘ 


TOTALS (all Libraries) 

3086 GETS were required to define 37 macros. 

There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:TTYFDT/OBJ=OBJ$: TTYFDT MSRC$: TT YFDT/UPDATE=(ENHS: TTYFDT) +EXECMLS/LIB 
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NOWRT NO 
WRT NO 
WRT NO 
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